Private Sub btByRef_Click()
    tbAusgabe.Text = TestByRef(tbEingabe.Text)
End Sub
 
Private Sub btByVal_Click()
    tbAusgabe.Text = TestByVal(tbEingabe.Text)
End Sub
 
Public Function TestByRef(ByRef zahl As Integer) As Integer
    zahl = zahl + 1
End Function
 
Public Function TestByVal(ByVal zahl As Integer) As Integer
    zahl = zahl + 1
    Return zahl
End Function