Date Functions VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Date Functions
  4. To schedule an event relative to the current time - for example, 20 minutes from now
Sub Main()
    Application.OnTime Now + TimeValue("00:20:00"), "DisplayAlarm"
End Sub
Sub DisplayAlarm()
    Beep
    MsgBox "Wake up. It's time for your afternoon break!"
End Sub