[Resolvido]Como provocar um delay (pausa) no processamento por x minutos....

Estou testando uma rotina de mailing e ao enviar +/- umas 300 mensagens o servidor dá uma mensagem informado que foi alcançado o limite de envio, após uma pausa de alguns minutos ele retorna a operação, consigo tratar esse erro no servidor e queria que a rotina desse essa pausa e retornasse ao envio após a mesma automaticamente... Alguém teria ai na manga uma rotina para efetuar essa pausa?!?!?1

utilize

Sub aguardarTempo(argTempo As Long)
'disponibilizada por Plínio, no fórum expertaccess
Dim momentoInicial As Date
Dim momentoAtual As Date
Dim tempoDecorrido As Long

momentoInicial = Now

Do
momentoAtual = Now
tempoDecorrido = DateDiff("s", momentoInicial, momentoAtual)
Loop Until tempoDecorrido >= argTempo

End Sub

Agradecido Alexandre funcionou...