Make your Computer talk whatever you type.......

Want to make your computer talk whatever you type for doing yhis do this:
Open Notepad
Type Following code there :
      Dim message, sapi
      message=InputBox("What do you want me to say?","NO.1 Hacker Abhinav ")
      Set sapi=CreateObject("sapi.spvoice")
      sapi.Speak message

And in last save it With .vbs extension

Now open that program and type whatever you want to speak your pc..............................