Create your own text to speak in vbs

There are lots of software used to speak the text written on them. But now you can create your own text manually in vbs script…..
Copy the text given below and paste it on notepad. Replace the “Enter your text” as in your own words then save it as .vbs extension thus see the magic -
Dim msg, sapi


msg=InputBox(“Enter your text”,”My text to speak”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak msg