On peut utiliser l'API Win32 :

- déclarer la fonction au niveau module

Declare Function GetTickCount Lib "kernel32" () As Long

mettre en oeuvre une fonction du genre

Public Sub Pause(Duree As Long) ’ duree en secondes
  Dim Butee As Long, InstantZero As Long
  InstantZero = GetTickCount / 1000
  Butee = 0
  While Butee < Duree
    Butee = GetTickCount / 1000 - InstantZero
  Wend
End Sub

Naturellement Word est bloqué pendant ce temps !!!