[Erel]

Petr you are right .
Still it is important to decrease i, otherwise it will skip some characters.
The solution is to use a While loop.
Do While i < StrLength(D$)
...
i = i + 1
Loop