Du könntest deinen Text in ein Array splitten mit split(Stringzumsplitten,Teil) - also split("23+123+83+79","+") und machst dann ne schleife durchs Array und zählst alle Werte zusammen.
Ansonsten könnt ma deinen Code noch anders optimieren:
Do
pos = InStr(text, "+")
If (pos < 1) Then
d = d + text
text = ""
Else
d = Val(Left(text, pos - 1)) + d
text = Mid(text, pos + 1)
End If
Loop Until (Len(text) = 0)
mfg Thomas
|