Option Explicit
Private intModuleVariable As Integer
Public Sub TestProc1()
intModuleVariable = intModuleVariable + 1
End Sub
Public Sub TestProc2()
Debug.Print intModuleVariable
End Sub
Public Sub TestProc3()
Dim intModuleVariable As Integer
intModuleVariable = 100
Debug.Print intModuleVariable
End Sub