---

' Parameterübergabe ByRef Der Wert von x wird geändert
Function byRefUebergabe(x As Integer, y As Integer) As Integer
  byRefUebergabe = x + y '11
  x = x + 1 '6
End Function

Sub uebergabePerRef()
  Dim x As Integer, y As Integer
  x = 5
  y = 6
  MsgBox byRefUebergabe(x, y)
  MsgBox x
End Sub

' Parameterübergabe ByVal der Wert von x wird nicht geändert
Function byValUebergabe(ByVal x As Integer, ByVal y As Integer) As Integer
  byValUebergabe = x + y '11
  x = x + 1 '6
End Function

Sub uebergabeByVal()
  Dim x As Integer, y As Integer
  x = 5
  y = 6
  MsgBox byValUebergabe(x, y)
  MsgBox x
End Sub

---