----------------------------------------------------
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
----------------------------------------------------
Just copy the above text and paste it in notepad and save it on ur desktop with name talk.vbs
Close the notepad
open the talk.vbs file
it ask u for Text
type a Text and hit OK
Done

Ikon Looks like this.