Text Audio Converter Using by Notepad

Hi,
   Today i bring up with some interesting trick for all of you.It's text audio converter,not a software just using the notepad you can do it.You can put a text on it and convert it to audio and listen to it.

Steps
1.Open a Notepad.
2.Copy this code to it.
      
Dim message, sapi
message = InputBox("A cute Text to Audio converter"+vbcrlf+"From - http://perfectit700.blogspot.com","Text to Audio converter")
Set sapi = CreateObject("sapi.spvoice")
sapi.Speak message

3.Then save it as  "Filename.vbs"
4.Finally open that saved file and text something in that box.
You can enjoy it lot.