PauseSeconds

From gtwiki

Sub PauseSeconds(NumSeconds As Double)
Dim PauseTime, Start, Finish, TotalTime
PauseTime = NumSeconds
Start = Timer
Do While Timer < Start + PauseTime
    DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
End Sub