RunTime(pausa entre procedimento)

ola amigos fico muito contente com o forum pois aqui aprendi muito e agradeço a todos,
e mais uma vez venho aqui pois tenho que gerar uma pausa entre impressões e alguns procedimento então
faço uso das funções abaixo, atualmente estou usando a segunda funcionando
perfeitamente no access 2013 e ate no 2010 e 2007 já no RunTimer da erro possivelmente
pelo fato de as funções fazerem referencia ao access gostaria de saber se e
possível usa-la ou se tem outro procedimento pra executar esse tipo de pausa.

no modulo
Public Function PauseFor(iSeconds As Integer)
'UTILIZADO PARA GERAR UM DELAY ENTRE AS IMPRESSÕES OU EXECUÇÃO DE UM PROCEDIMENTO
'' Pauses for iSecond seconds
On Error Resume Next

 Dim sngTimer As Single
 
 sngTimer = Timer
 While Timer - sngTimer < iSeconds
   DoEvents
 Wend

End Function
PARA CHAMAR A FUNÇÃO USO
Call PauseFor

OU

#If VBA7 Then
'para o office 2010/2013
   Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   Public Declare PtrSafe Function GetFocus Lib "user32" () As LongPtr
#Else
  'para o office 2007
   Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   Public Declare Function GetFocus Lib "user32" () As Long
#End If

PARA CHAMAR A FUNÇÃO USO
Call Sleep

fico no aguardo
desde já agradeço.