Open a text file in notepad and write:

copy from here//:-

Code:-

Dim msg, sapi

msg=InputBox("Enter your text","Talk it")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg


//Save the file with a (*.vbs) extension, it will create a VBScript File.

Then after clicking the .vbs file, it will prompt you for a text, input the text and press ok....