Make Your computer speak what you type

1.Open your notepad and type below commands

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message

2.Save this notepad file with extension .VBS
3.Double click this file, a window will appear with title "SPEAK THIS" enter the text below which you want computer to speak.