how make your computer speak able

In the about trick i show how to make 

keyboard ato typing using Notpad

in this cool trick i will tell how to make your computer speak able it mean your computer will speak any thing what you want 

this cool trick using trick your computer or laptop chat with you 

• open Notpad in you computer or laptop
• copy this code

Dim message, sapi

message=InputBox("What do you want me to say?","Speak to Me")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message 

• and save with this name speak.vbs 
• and chose all file type on you desktop
• now just open this file 
• now you will see now window open on you computer destope here write God is one and hit on  ok