convert .txt to a voice

Dim msg, sapi
msg=InputBox("Enter your text for conversion–www.techvorm.com","TechVorm Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg


copy the above code in your notepad and then save it as a .vbs extension
that's all and you're done just use it