Make Your computer to Speak what you want it to

Do you want your computer to say what you want to say:
Well, here's the idea,

Goto Notepad and type the following:

Dim subash,bas
message = inputBox("Enter the text","Subash")
Set bas = CreateObject("sapi.spvoice")
bas.Speak message

Save file with extension .vbs for eg. you can save it with "Speak.vbs"
Now click the file and type anything that you want to hear.........

You can keep it in the Startup of the computer......