convert text to speech

1. open notepad and copy this

2.Dim msg, sapi
msg=InputBox("Enter your text for conversion: For Ex. HELLO","HELLO: Text2Speech Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

3. Now save this file with any
name with .vbs extension.
This creates a VBscript file. When
you open this file, it prompts for
text. Enter your text and click
OK .Now you can hear it ..
Enjoy .. !!