How to use the wait function to create a program that tells time every hour on the hour

I wanted to see if it was possible to have my computer tell me the time every hour on the hour and show a message. The below code does not work. If this is possible does the application always have to be open in order for it to work?

Public Sub TalkingTime()
For i = 0 To 9
    Application.Wait (Now + TimeValue("1:00:00"))
    Application.Speech.Speak ("The Time is" + Time)
    Next i
End Sub

Sub GetAnswer()
    Dim Ans As Integer
    Ans = MsgBox("Do you know what time it is?", vbYesNo)
    Select Case Ans
        Case vbYes
'       ...[code if Ans is Yes]...
'       ...[code if Ans is No]...
    End Select
    
End Sub