Quizá necesitemos realizar pausas entre procesos, funciones...

Llamada: Espera(5)

Sub Espera(Segundos As Single)
Dim ComienzoSeg As Single
Dim FinSeg As Single
ComienzoSeg = Timer
FinSeg = ComienzoSeg + Segundos
Do While FinSeg >; Timer
DoEvents
If ComienzoSeg >; Timer Then
FinSeg = FinSeg - 24 * 60 * 60
End If
Loop
End Sub