Computer speaks what you want.

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




open notpad : copy paste above code and save file as speak.vbs
now double click this file and your pc speak your words what you write in box.