Text to Voice conversion using Notepad

The below code can convert a notepad file into a small application which can convert text to voice.

Follow the below steps.

1. Open Notepad

2. Paste below code into the notepad.

Dim message,sapi

message = InputBox("Enter your text","Message Box")

set sapi = Createobject("sapi.spvoice")

sapi.speak msg

3.Save it with a file extension as '.vbs' such as ABC.vbs

4. Now open the file, type the text and click ok. you can hear what you typed.