Public Type TReturn
   var1 As String
   var2 As String
   var3 As String
   var4 As String
End Type
 
Public Function Beispiel(irgendwelcheparameter) As TReturn
   ...
   Beispiel.var1 = "wert 1"
   Beispiel.var2 = "wert 2"
   Beispiel.var3 = "wert 3"
   Beispiel.var4 = "wert 4"
end function
 
Public Sub Test()
   Msgbox Beispiel.Wert1
End Sub