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