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
Save it as 'Text-to-Audio.vbs'
then open the saved file, voila