Werte Rückgabe aus Unterprogrammen

Option Explicit

'*** Beispiele Rueckgabe-Parameter für mehrere Werte

Sub Main1()

  Dim l_Zaehler As Long
  Dim s_String As String
  
  l_Zaehler = 999
  s_String = xyz
  
  MsgBox ( _
    Werte vor dem Unterprogamm-Aufruf & vbLf & _
    l_Zaehler :   & l_Zaehler & vbLf & _
    s_String  :   & s_String)
  
  Call Unterprogramm1(l_Zaehler, s_String)
  
  MsgBox ( _
    Werte nach dem Unterprogamm-Aufruf & vbLf & _
    l_Zaehler :   & l_Zaehler & vbLf & _
    s_String  :   & s_String)
  
End Sub

Function Unterprogramm1(l_z As Long, s_s As String)

  MsgBox ( _
    Aufruf-Parameter im Unterprogamm & vbLf & _
    l_z :  & l_z & vbLf & _
    s_s :  & s_s)
    
 ->Parameter verändern
  l_z = l_z + 1
  s_s = s_s & xxxxxxxxxxxxxxx
  
  MsgBox ( _
    Parameter am Ende des Unterprogamms & vbLf & _
    l_z :  & l_z & vbLf & _
    s_s :  & s_s)
  
End Function