Option Explicit
Sub testme()

Dim resp As String
Dim myStr As String
myStr = "What's the code, Kenny?"

Application.Speech.Speak myStr
resp = InputBox(prompt:=myStr)

If resp = "" Then
'do nothing
Else
Application.Speech.Speak "You answered: " & resp
End If

End Sub

Personally, I would find this interesting/funny for the first couple of times.
Then I'd want it gone.

wizardmalcolm wrote:

I have macros calling up input boxes to fill-in a form
It would be good to use "text to speech" to ask the question
Any ideas

--

Dave Peterson