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.Ketan Bajpai","Ketan Bajpai 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.