ich habs nicht gestetet, vermute aber mal folgendes:
pos = InStr(text, "+")
d = Val(Left(text, pos - 1))
text = Mid(text, pos + 1)
Wenn du beim letzten durchlauf bist, findest du kein "+" mehr, dh. pos wird 0, wenn du dann bei left(text,pos-1) als Startwert -1 hast (da ja pos=0), kann er das nicht verarbeiten.
Wenns das nicht ist könntest ja mal ausfindig machen, in welcher Zeile der Fehler ist.
mfg Thomas
|