Just copy the code below and save it in the notepad as anyname.vbs.
Then double click on the file you see a textbox like this
Then type what ever you want and click ok button.....
copy the code below:
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")