Frage Funktion textzahl

[coolbininet]

Habe jetzt eine

Public Function textzahl(text As String)
Dim d, da, pos, i, a, ausgabe As Long
Do
pos = InStr(text, "+")
If (pos < 1) Then
da = text
Exit Do
Else
d = Val(Left(text, pos - 1)) + d
text = Mid(text, pos + 1)
Exit Do
End If
Loop Until (Len(text) = 0)
ausgabe = d + da
Debug.Print (ausgabe)
End Function

Ist umständlich, geht's einfacher?

Grüsse Coolbininet