One Notepad Application then Paste the code. Save it (.vbs) format.
Dim msg, sapi
msg=InputBox(“Enter your text for conversion–www.sonuandtechnology.blogspot.com”,”Sonuandtechnology Text-To-Audio Converter”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak msg