In Visual Basic : How we Convert our statement in Computer Voice

Today...Friends i want to tell you how we convert our statement in computer voice using Visual Basic... - 

Step-1. Copy This Code and Paste in Notepad .

             translate=InputBox("Write Any Statements which you want to listen?","Voice box ")
             Set sapi=CreateObject("sapi.spvoice")
             sapi.Speak translate

Step-2. Save This file as .vbs file.

Step-3. Press OK and Enjoy With Your Voice box...