Make your computer speak what you type Open Notepad

Make your computer speak what you type
Open Notepad
and copy and paste the following code into it:

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

Now save the notepad file with the name speak.vbs
at your desktop.
Now double click on
speak.vbs
type in the box whatever you want your computer to speak for you...