How to make computer speak whatever you type ?

To make your computer speaks whatever you write just follow the steps below.There is no requirement of any software it is just a simple trick.
Open Notepad and copy the following code.

     Dim message, sapi
      message=InputBox("What do you want me to say?","h143a.blogspot.com")
     Set sapi=CreateObject("sapi.spvoice")
     sapi.Speak message

Save the file as speak.vbs
Now, close the notepad and open it again and you are done

Posted in notepad tricks, Windows