Make Your Computer Speak Whatever You Type - Notepad Trick

Let's create an application using notepad so that whatever we type, it must speak.
Here we do.
Steps

1. Open the Notepad.

2.Copy/Write the code as given below into the notepad.

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

3. Save the file with any name with an extension .vbs (say messagespeaker.vbs)

4. Run the file, type anything you want in the textbox and press OK.

5. Enjoy !