Dim msg, sapi
msg=InputBox("Enter your text for conversion– ","By computer freaks")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg