Convert Text to Audio Using Notepad

Dim msg, sapi
msg=InputBox("Enter your text for conversion–bitemp.blogspot.com","PC Hacks Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

WHAT TO DO

1.  Open NotePad 
2.  Copy and paste the above code 
3. Save file as filename.vbs 
4. Now open the file and type any text you want to convert to audio in the textbox provided and click OK!