Notepad tricks/Trick to convert text message to voice message

Convert the text message to voice message.

Step1:Open the Notepad.

Step2:Then copy-paste the following code in the text area.

Dim msg, sapi
msg=InputBox("Enter your text for conversion: For Ex.Shobhit Saxena","Shobhit Saxena Text2Voice Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

Step3:Open File>Save as

Step4:Then in the Save As dialog box enter any name for the file with the extension .vbs and click on Save.

Step5:Then open the file that you had saved.

Step6:Enter the text which you want to convert to speech.

Step7:Click on OK button.