macro stops at midnight

Hi,
I am using the following code to periodically pause a macro. The problem is, as the system clock runs through midnight, the macro stops working. Any idea of a way to be able to pause through midnight and continue to run later?
Thanks!

    PauseTime = 3    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start    ' Calculate total time.