Visual Basic - Ayuda con un codigo de retardo plis!!!

hola amigos, tengo el siguiente codigo,es un pequeño retardo antes de salir de la aploicación de manera que visual alcanse a llamar a cada boton. pero me arroja un error..dice que el Exist Do no esta dentro del Do loop. y no se cache como solucionarlo. si alguien me puedo ayudar muchas gracias.........

dim ahora as date
Call Command5_Click
DoEvents
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
Exit Do
End If
Call Command6_Click
DoEvents
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
Exit Do
End If
Call Command7_Click
DoEvents
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
Exit Do
End If
Call Command8_Click
DoEvents
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
Exit Do
End If

LO que te ha dicho GUEVO tiene razón NO TIENES NINGÚN DO de donde poder salir, te apunto está solución por si te sirve de ayuda:

dim ahora as date
Call Command5_Click
DoEvents
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
GOTO SALIDA
End If
Call Command6_Click
DoEvents
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
GOTO SALIDA
End If
Call Command7_Click
DoEvents
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
GOTO SALIDA
End If
Call Command8_Click
GOTO SALIDA
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
GOTO SALIDA
End If

SALIDA:
EXIT SUB

Saludos

El anterior cuando se cumple una condición de las que impone termina, pero si quieres que recorra todos tendrás que poner:

dim ahora as date
Call Command5_Click
DoEvents
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
GOTO SALIDA1
End If
SALIDA1:
Call Command6_Click
DoEvents
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
GOTO SALIDA2
End If
SALIDA2:
Call Command7_Click
DoEvents
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
GOTO SALIDA3
End If
SALIDA3:
Call Command8_Click
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
GOTO SALIDA4
End If

SALIDA4:
EXIT SUB

En el anterior hay un error en el command8

puse

Call Command8_Click
GOTO SALIDA
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
GOTO SALIDA
End If

y debe ser

Call Command8_Click
ahora = nor
If DateDiff("s", ahora, Now) >= 20 Then
GOTO SALIDA
End If

Espero te ayude