Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Private module variable

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