Andere Möglichkeit:
Code:
pos = InStr(text, "+")
While (pos <> Null) And (pos <> 0)
d = Val(Left(text, pos - 1)) + d
text = Mid(text, pos + 1)
pos = InStr(text, "+")
Wend
Jak
____________________________________
Join the DNRC |
Godwin\'s Law (thx@stona)
Documentation is like sex: If it\'s good, it\'s very, very good. If it\'s bad, it\'s better than nothing.
\"In theory, theory and practice are the same. In practice, they are not\" (Lawrence Berra)