Public Type MeinTyp
    Wert1 As Integer
    Wert2 As Integer
End Type
 
Public Function Rechnen(Zahl1 As Integer) As MeinTyp
    With Rechnen
        .Wert1 = Zahl1 * 5
        .Wert2 = Zahl1 * 10
    End With
End Function

Private Sub Form_Load()
    Dim Ergebnisse As MeinTyp
    Ergebnisse = Rechnen(100)
    '??
    MsgBox Ergebnisse.Wert1
    MsgBox Ergebnisse.Wert2
End Sub