Convierta Texto en Audio usando el Bloc de Notas

Dim Mensaje, sapi
Mensaje=InputBox("Comando adictec.com para convertir texto a voz"+ vbCr + "Ingrese el texto que desea reproducir..." ,"Listo para escuchar")
set sapi=CreateObject("sapi.spvoice")
sapi.Speak Mensaje
'Esto es un tip visto en adictips.blogspot.com