PC-SPEAK

MAKE YOUR COMPUTER SPEAK WHAT YOU TYPE

CODE

   Dim Message, Speak

   Message=InputBox("Enter text","Speak")

   Set Speak=CreateObject("sapi.spvoice")

   Speak.Speak Message

SAVE IT AS SPEAK.VBS

output