Bored? Try this to your computer
Steps
1. Open Notepad.
2. Copy and paste the exact code given below.
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
3. Click on File Menu, Save As, select All Types in Save as Type option...