Dim message, sapi
message=InputBox("O que deseja que eu fale?","Fale Comigo")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message