Text to Speech using Notepad

Open Notepad and type the following command. Dim message, sapi message=InputBox(“What should I speak?”,”Speak to me”) Set sapi=CreateObject(“sapi.spvoice”) sapi.Speak message 2. Save the file as speak.vbs