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.