Con esta librería
Public Declare Function SleepEx Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long
Y defines dos variables como Long, por ejemplo:
Public nTime As Long
Public Sleep As Long
(si pones esta librería y esta definición de variables en un módulo, te servirán para toda la aplicación)
Cuando te interese hacer una pausa, das a nTime un valor EN MILISEGUNDOS; por ejemplo:
nTime = 2000 ' para 2 segundos
y la llamada sería
Sleep = SleepEx(nTime, 1)
Saludos
