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