¿Por qué Application.Speech.Speak lee algunos números individualmente en lugar de juntarlos?

Supongamos que ahora son las 11h11min. Se lee "ONE ONE" horas y "once" minutos, como en:

Sub TEST1() 
  Application.Speech.Speak "It is " & Hour(Now()) & " hours and " & Minute(Now()) & " minutes"
End Sub

Sin embargo, lo siguiente dice "once" horas y "once" minutos

Sub TEST2() 
  Application.Speech.Speak "It is 11 hours and 11 minutes"
End Sub

Por el contrario, lee "ONE ONE" horas y "once" minutos, como en:

Sub TEST3() 
  Application.Speech.Speak "It is " & "11" & " hours and " & "11" & " minutes"
End Sub

¿Cómo puedo hacer que lea estos números como palabras?

Respuestas a la pregunta(3)

Su respuesta a la pregunta