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?