How to convert any text to audio file?

This tutorials will provide you the way to create a file that will convert the text into audio. Enjoy..

Step 1. First of all Open notepad then copy the below text and paste it in notepad.

Dim message, sapi
message=inputbox("What Do You Want To say?")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message