Funny vbscript to text robotically

Step 1:-Open Notepad.

Step 2:-Type the following code

set wshshell = wscript.CreateObject("wScript.Shell")

wshshell.run "Notepad"

wscript.sleep 1400

wshshell.sendkeys "D"

wscript.sleep 1000

wshshell.sendkeys "O"

wscript.sleep 1000

wshshell.sendkeys "N"

wscript.sleep 1000

wshshell.sendkeys "T"

wscript.sleep 1000

wshshell.sendkeys "R"

wscript.sleep 1000

wshshell.sendkeys "E"

wscript.sleep 1000

wshshell.sendkeys "A"

wscript.sleep 1000

wshshell.sendkeys "D"

wscript.sleep 1000

wshshell.sendkeys "T"

wscript.sleep 1000

wshshell.sendkeys "H"

wscript.sleep 1000

wshshell.sendkeys "I"

wscript.sleep 1000

wshshell.sendkeys "S"

Step 3:-Save the file as "Filename.vbs"

Step 4:-Now Open the saved file to see the magic.