Notepad Trick - Text to Audio

This is pretty awesome, what it does is whatever you type your pc will say it out loud  


Simply copy this code into notepad: 

           

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

Save it as 'Text-to-Audio.vbs' 

then open the saved file, voila