Private Sub Command1_Click()
    Dim lngVar1 As Long
 
    lngVar1 = 1&          '//vergleichswert zuweisen
    sub_Test lngVar1      '//Versuch einer Manipulation
 
    '//Na, was passiert?
    Select Case lngVar1
       Case 1&: MsgBox "Übergabe erfolgte ByVal!", vbOKOnly, "Ergebnis"
       Case 2&: MsgBox "Übergabe erfolgte ByRef!", vbOKOnly, "Ergebnis"
    End Select
 
End Sub
 
Private Sub sub_Test(Variable As Long)
    Variable = 2&
End Sub

Private Sub Command2_Click()
    Dim lngVar1 As Long
 
    lngVar1 = 1&         '//vergleichswert zuweisen
    sub_Test2 lngVar1    '//Versuch einer Manipulation
 
    '//Na, was passiert?
    Select Case lngVar1
       Case 1&: MsgBox "Übergabe erfolgte ByVal!", vbOKOnly, "Ergebnis"
       Case 2&: MsgBox "Übergabe erfolgte ByRef!", vbOKOnly, "Ergebnis"
    End Select
 
End Sub
 
Private Sub sub_Test2(ByVal Variable As Long)
    Variable = 2&
End Sub

Tschaui
Woellmi