Men helt ærligt... hvad vil du bruge et uendeligt loop til?
For I = 1 To Len(Tekst)
Next I
i den løkke redigere den teksten... Den skal redigere al teksten så den skal fortsætte indtil der ikke er mere tekst...
Mens den redigere i teksten ændre størrelsen jo også på teksten og der har du det problem jeg talte om...
Men ikke nok med det...
Hver gang den ændre noget skal den starte forfra (I skal sættes til 1 og længde af teksten skal genopmåles...). Så derfor skal den selfølgelig ikke køre uendeligt, men ´den kan hurtig komme op på et antal gange hvor I bliver nød til at være en long...
Så derfor sagde jeg:
Restart:
For I = 1 To Len(Tekst)
'//Hvis ting bliver ændret
GoSub Restart
Next I
Så hver gang den ændret noget hopper den ud af løkken og starten den igen, hvilket betyder at I bliver sat til 1 og længden af Tekst bliver genoptalt...
---
Først troede jeg at den automatisk tjeckede længden af teksten og så kunne jeg jo bare gøre sådan:
For I = 1 To Len(Tekst)
'//Hvis ting bliver ændret
I = 0
Next I
PS. Grunden til I sættes til 0 er fordi den nedeunder (next i) bliver sat en op igen til 1...