Convert Text into audio using notepad

Convert Text into audio using notepad :=

Dear readers , here I am (Nisarg Gajjar) posting one code; with the help of that code you can convert text in to audio using notepad.

open notepad and paste the bellow code in notepad and save it as anything.vbs.

code:

---

Dim msg, sapi

msg=InputBox("ENTER THE TEXT–www.facebook.com/nisargtechtips","Text-To-Audio Converter by Nisarg :)")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg