1
2
3
4

Private Sub cmdAddAmbassador_Click()
' Run when the user clicks the "<" button to add an ambassador to an event

...

1
2
3
4

Option Explicit

'Const HKEY_LOCAL_MACHINE = &H80000002
...

1
2
3
4

        Private Function fIsAppRunning() As Boolean
            'Looks to see if Lotus Notes is open

...

1
2
3
4

Sub cleanupSheet()
' This function asks for two input the first is the sheet you want to clean up 
' The second is the Column and cell you wish to start at, e.g. A1
...

1
2
3

  Private Function GetPreviousMonthsXml(ByVal months As Integer, ByVal startDate As Date, ByVal xDoc As XmlDocument, ByVal path As String, ByVal nodeName As String) As XmlDocument
...