how to make your own "talking computer"

hi guys want to make your computer to talk  that  what you say , its simple you can make your computer to talk for that just fallow the steps bellow 

• open notepad

• copy the exact code given below

   

 Dim Message, Speak
          

  Message=InputBox("Enter text","Speak")

          

  Set Speak=CreateObject("sapi.spvoice")

          

   Speak.Speak Message

• paste the code in notepad

• after pasting the code , select menu>file>save as...

            note:-     here give file name with (.vbs) extension 

                              (example:-filename.vbs)                 
                    select save as type as all files
                                        press ok
now open the short cut which is created after saving and type text it want to speak then press enter