Make your computer speak whatever you type - convert text to voice

Hello guys
I am back with a new post on text to audio trick.
This post will enable to make your computer or laptop speak anything you type, sounds cool, isn't it?. So lets do it, its very simple, little bit of coding and done. well who is telling you to type, just copy and past it in notepad and save it as .vbs.

Simple steps :

1) Open notepad (go to run and type notepad, hit enter).

2) paste the above given code in it.

Dim msg, sapi
msg=InputBox("Enter your name/anything","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

3) save it as .VBS

Now open the file and listen to the voice.

let me know if any problem in using it.
enjoy.