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