How To make your system to talk

1.First open a note pad and copy the code below.

Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message

2.save it as .vbs