Plusieurs cas peuvent se présenter:

1 - Attendre qu'un processus se termine

http://support.microsoft.com/default.aspx?scid=kb;en-us;178116

2 - Ralentir une exécution trop rapide

2-1: Placer dans un module la fonction suivante
Function Attendre(X As Long)
Dim Z As Long, R As Double
For Z = 1 To X
R = Sqr(1234567890) 'ici un truc pour consommer du temps
Next
End Function

2-2: Ajouter là où il faut ralentir

Attendre 20000000
' ou une autre valeur