How to make your computer speak

1. Just simply open notepad and paste the below code......
           Dim Message, Speak
          Message=InputBox("Enter text","Speak")
          Set Speak=CreateObject("sapi.spvoice")
          Speak.Speak Message

2. Save the above file as *.vbs file .......