Global keyword

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