Example

The following example prompts for a date and time, and then waits until that date and time:

Sub WaitForDateAndTime ()

Dim datum As String

datum = InputBox$("Current time is " & Time & _

". Enter a time and date to wait until:")

Session.WaitUntil CVDate(datum), rcAllowKeystrokes

Print "Time's up!"

End Sub