Frage Funktion textzahl

[coolbininet]

Hallo Leute!

Möchte eine Funktion schreiben die mir aus einem String zB.: "23+123+83+79" die Summe der einzelnen Zahlen ausgibt.

Hänge aber bereits schon hier:

Public Function textzahl(text As String)
Dim d, pos, i As Long
Do While (Len(text) > 0)
pos = InStr(text, "+")
d = Val(Left(text, pos - 1))
text = Mid(text, pos + 1)
Debug.Print (d)
Loop
End Function

Fehlermeldung von VBA:

Unzulässiger Prozeduraufruf oder ungültiges Argument (Fehler 5)

Was ist da falsch und muss besser oder anders gemacht werden?

Coolbininet