How to Make Your Computer Speak Whatever You Type

First: Open the Notepad

Seconde: Copy the code given below and paste it to notepad

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

Third: Save the file with any name with an extension .vbs

Fourthly: Run the file, type anything you want in the textbox, and press OK.