How to convert text to speech on computer using notepad

Just copy and paste the code down below into notepad and save as a .vbs file.  When you play it, you’ll get a dialog box asking what you want the computer to say. Have fun.

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message