Du solltest auf jeden Fall überprüfen, ob die Wait 3 Anweisung wirklich notwendig ist oder durch einen Timer ersetzt werden kann.
Außerdem kannst du das unterbrechbar auch so schreiben:
For I = 1 To 30
Waitms 100
Next I

Gruß

Rolf