1. Sub sleep(time)
    2.     Dim newHour, newMinute, newSecond, waitTime
    3.     newHour = Hour(Now())
    4.     newMinute = Minute(Now())
    5.     newSecond = Second(Now()) + time
    6.     waitTime = TimeSerial(newHour, newMinute, newSecond)
    7.     Application.Wait waitTime
    8. End Sub