Make text to audio converter

Do you want to listen the speech which was written in text format? Then you have to make a text to audio converter. You can make it easily by writing some commands into notepad. The commands are given below.
Just copy the commands and paste it into notepad. Give the notepad any name.vbs (e.g. Speak.vbs), Save as type: All Files and Save it.

Copy the text below:

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

After saving  it double click on .vbs file and write anything (in English) into the box and click OK.