How to Make an Annoying Voice Program Using Notepad?

Code:

do strText = "write any text here"

Set objVoice = CreateObject("SAPI.SpVoice")

objVoice.Speak strText

loop

This is totally harmless and you can end it from task manager