How to make a talking script in 30 seconds ?

Paste the following code in notepad :
Dim msg, sapi
msg=InputBox("Enter your text here","Start Talking")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

Save the file as xyz.vbs or other name but it must end with .vbs extension. sure that 'All files' is selected on 'Save as type'.
After you double click on xyz.vbs , input the text and press OK. The script will start talking.