Type and listen

Using this trick you can make your computer speak what you type.

Step 1: Open Notepad

Step 2: Copy and Paste the Below Code in Notepad.

Dim message, sapi

message=InputBox("What do you want me to say?","Speak to Me")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message 

Step 3: After Pasting the Above Code in Notepad, its time to Save the File. Save the File with name Speak.vbs and again choose All files in save as type

Step 4: Double Click on the File to See a pop up Window.

            Now All you have to do is Type in Anything that you want it to Convert in Speech.

           Then Click on Ok. Wait a second or Two and hear it do its work.