Option Explicit
'Prozeduren zur Demonstration globaler Variablen
' Dateiname: globaleVariable
    'Nachfolgend deklarierte Variable ist in ALLEN
    'Prozeduren gültig!
    
    Dim globaleVariable As Integer
    Sub steuerung()
        ersteProzedur
        zweiteProzedur
    End Sub
    Sub ersteProzedur()
        globaleVariable = 5
        MsgBox ("ErsteProzedur, globaleVariable = " & _
        globaleVariable)
    End Sub
    Sub zweiteProzedur()
        globaleVariable = globaleVariable + 5
        MsgBox ("zweiteProzedur, globaleVariable = " & _
        globaleVariable)
    End Sub