Originariamente inviato da fosforo
Postare il codice sarebbe inutile, almeno in questo caso visto che è una cosa semplice.
Ma la soluzione poi si potrebbe applicare a tutti quelli che hanno la necessità di creare una pausa senza fermare il programma.
In rete ho trovato questo;

Private Function Pausa(ByVal Intervallo As Long)
Dim TempoPartenza As Long
TempoPartenza = Int(Timer)
Do
DoEvents
Loop Until Int(Timer) >= TempoPartenza + Intervallo
End Function

ma non vorrei che mandasse la CPU a manetta.
Cosa ne pensi?
Io uso questa:
codice:
Sub Pause(ByVal sec As Single)
   Dim t As Single
   t = Timer + sec
   If t >= 86400 Then t = 0   'evita il midnight-bug
   Do
        DoEvents        'permette di agire sui controlli
        Sleep 50
    Loop While Timer < t
End Sub
...non impegna la CPU (grazie alla Sleep), e inoltre non blocca i controlli utente (con il DoEvents).

P.S.: come routine di pausa in sé, ma le obiezioni precedenti, ovviamente, sono piu' che VALIDE !