Hallo Gandalf,

leg eine Hilfvariable z.B B an : Dim b as byte.
und mit 1 füllen :B=1
Dann die Variable vor deinem letzten Loop hochzählen : incr B
zum Schluss noch deine Hauptschleife mit loop until b>=6 verlassen.
6-1 = 5 Durchläufe

Fertig

Gruß Verri