How to covert TXT to Audio without any software

Hey folks, I’m going to introduce you with a simple trick of converting Text to audio without any software.
Just follow these easy steps:

1. Open notepad, copy and paste the below code in that notepad.

......................................

Dim msg, sapi
msg=InputBox("Enter your text to convert Audio: ","Text to Audio Converter: Hello")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

.............................................

2. Now go to menu – file and click on save as.
3. Now named that file (like: 123.vbs) make sure that before clicking save button select the all files in the combo box.
4. Now open the file, write your text into it and press enter.
Now the magic begins enjoy and don't forget to share this trick