Convert Text into audio using notepad

Dear readers , here i am 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