Make your pc speak whatever you type - Tip Of the Day

copy this and paste it to notepad and name it as any name.vbs



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


and open the saved vbs file and work on it !