Public Statement

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

Public iPublicVar As Integer
Sub ExamplePublic
    iPublicVar = iPublicVar + 1
    MsgBox iPublicVar
End Sub