Vielleicht rennt er sich in der do...loop until Schleife fest.

icg selbst nutze eine Variable, welche in der sectic um 1 erhöht wird, und bei einem bestimmten Wert (z.B. 5 ) Rufe ich ein Sub auf, welches die Werte einliest und die Variable wieder auf 0 Stellt.