Public Sub pause(SeconDs As Single) 'Pause Sub
 
    Dim Timer1 As Single, Timer2 As Single, CurrentDate As Date
 
    CurrentDate = Date
 
    Timer1 = Timer + SeconDs
    Timer2 = Timer1 - 86400
 
    While ((Timer() < Timer1) And (CurrentDate = Date)) Or ((Timer() < Timer2) _
      And (CurrentDate + 1 = Date))
        DoEvents
    Wend
 
End Sub

Wieso soll man sich das leben schwer machen, wenn's das leben f?r einen tut?