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")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message