Date Functions VisualBasic Script

Sub ScheduleSpeak()
    Application.OnTime EarliestTime:=TimeValue("9:14 AM"), Procedure:="RemindMe"
End Sub
Sub RemindMe()
    Application.Speech.Speak Text:="meeting."
End Sub