VBA - Application.Speech.Speak TroubleShoot

[Cubist]

I'm testing out the Application.Speech.Speak.This is new for me.
However, when I ran the code, the application said that it was [running] but I didn't hear anything. When I pause the code, I get the "Application-defined or object-defined error". Do I need to set up something first?

This is the simple code.

Sub UseSpeech()
 
 Application.Speech.Speak "Hello"
 
End Sub

My volume is up to the max. When I do Preview Voice in the Speech Settings. I can hear "David" speaks.

 

[Cubist]

Addendum: I've also added the "Microsoft Speech Object" library.

 

[Cubist]

My EnableEvents was FALSE. Got it to work.
Wrote a greeting VBA and tell a random joke.

Sub GreetingsAndTellJoke()

 uName = Split(Application.UserName)(0)
 Select Case Hour(Now())
    Case 0 To 11
        timeOfday = "morning"
    Case 12 To 17
        timeOfday = "afternoon"
    Case Else
        timeOfday = "evening"
 End Select

 Application.Speech.Speak "Good " & timeOfday & " " & uName & ". Here's your joke for the day.", True
 TellMeAJoke
End Sub
Sub TellMeAJoke()
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    ' Make a GET request to the icanhazdadjoke API
    http.Open "GET", "https://icanhazdadjoke.com/", False
    http.setRequestHeader "Accept", "application/json"
    http.send
    ' Parse the response JSON to extract the joke
    Dim jokeResponse As String
    jokeResponse = http.responseText
    ' Extract the joke from the response JSON
    Dim joke As String
    joke = ExtractJokeFromResponse(jokeResponse)
    ' Display the joke
     Application.Speech.Speak joke
End Sub
 
Function ExtractJokeFromResponse(response As String) As String
    Dim startIndex As Long
    Dim endIndex As Long
    startIndex = InStr(response, """joke"":""") + Len("""joke"":""")
    endIndex = InStr(startIndex, response, """")
    ExtractJokeFromResponse = Mid(response, startIndex, endIndex - startIndex)
End Function