Script to make the computer speaks according to the words we wrote

With a few script, we can make the computer speak according to the text that we have written.
Follow these steps :

• Open Notepad
• Copy and Paste to notepad these script bellow
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message 

• Save the file with Vbs extension (NamaOfFile.vbs)  not .Txt file.
• Double click at the file that was created, then type the text what we want to be converted to voice
• Click OK to listen.