Make Windows XP talk as you type

Open notepad

Type or Copy the following code

Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg


Save the file with (*.vbs) extension..

Then open .vbs file, a textbox will open, type the text and press ok...