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

Check:  OxygenOS 5.0.1 update for OnePlus 3 and 3T brings adaptive mode, more