Option Explicit
Sub wertUndReferenz(ByVal wert As Long, referenz As Long)
wert = wert + referenz
referenz = wert + referenz
MsgBox ("Werte der Variablen in der Prozedur " _
& Chr$(13) & "wert = " & wert _
& Chr$(13) & "referenz = " & referenz)
End Sub
Sub hauptprogramm()
' Programm zu Wert- und Referenz-
' parametern
' Dateiname: wertUndReferenz
Dim wert As Long
Dim referenz As Long
wert = 9
referenz = 10
MsgBox ("Werte der Variablen vor dem Aufruf " & _
Chr$(13) & "wert = " & wert & _
Chr$(13) & "referenz = " & referenz)
wertUndReferenz wert, referenz
MsgBox ("Werte der Variablen nach dem Aufruf " _
& Chr$(13) & "wert = " & wert _
& Chr$(13) & "referenz = " & referenz)
End Sub