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