Make Your Computer Speak (English)

First, open Notepad, then copy and paste the following text in bold.

Dim message, sapi
message=InputBox("Write Sentences That Want The Look!","Speak")
Set sapi=CreateObject("sapi.spvoice")
sapi.speak message

When finished, save the file with the name "Speak.vbs" Not using quotation marks ... Save as type select All Files.
See the results as shown below.