Make your own text to speech software within few seconds

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

• Copy above code 
• Open notepad and paste the code 

• Save file any name with the extension of .vbs
• Double click the saved file

• Type a text in box and click OK 

See video tutorial.... please like, share and subscribe