Per esempio se la variabile si chiama varvero e di default la imposti a false scriverai:

While varvero = False
DoEvents
Wend

Fai attenzione che se la variabile non acquisisce valore 'True' in un evento generi un loop infinito. L'istruzione DoEvents serve a far generare gli eventi anche se l'applicazione è occupata nell'esecuzione del ciclo.

Spero sia abbastanza chiaro, famm sapere...
Ciao