Date Functions VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Date Functions
  4. Program an event for 3
Sub main()
    Application.OnTime TimeValue("3:00:00 pm"), "DisplayAlarm"
End Sub
Sub DisplayAlarm()
    Beep
    MsgBox "Wake up. It's time for your afternoon break!"
End Sub