Global Statement

Global VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]

Global iGlobalVar As Integer

Sub ExampleGlobal

    iGlobalVar = iGlobalVar + 1

    MsgBox iGlobalVar

End Sub