Creates a message box with the message "derp"

DerpBox.vbs

do
    dim s
    randomize
    s = int(rnd*11) + 1
    select case s
        case 1
            WScript.Sleep 1000
            MsgBox "DERP" ,0, "derp"
        case 2
		    WScript.Sleep 1000
            MsgBox "DERP" ,1, "derp"
        case 3
		    WScript.Sleep 1000
            MsgBox "DERP" ,2, "derp"
        case 4
		    WScript.Sleep 1000
            MsgBox "DERP" ,3, "derp"
        case 5
		    WScript.Sleep 1000
            MsgBox "DERP" ,4, "derp"
        case 6
		    WScript.Sleep 1000
            MsgBox "DERP" ,5, "derp"
        case 7
		    WScript.Sleep 1000
            MsgBox "DERP" ,16, "derp"
        case 8
		    WScript.Sleep 1000
            MsgBox "DERP" ,32, "derp"
        case 9
		    WScript.Sleep 1000
            MsgBox "DERP" ,48, "derp"
        case 10
		    WScript.Sleep 1000
            MsgBox "DERP" ,64, "derp"
        case 11
		    WScript.Sleep 1000
            MsgBox "DERP" ,4096, "derp"
    end select
loop

'NOTES:
'MsgBox "TITLE" ,#MessageType#, "Message"
'
'0 displays the OK button only
'1 displays the OK and Cancel buttons
'2 displays the Abort, Retry and Ignore buttons
'3 displays the Yes, No, Cancel buttons
'4 displays the Yes and No buttons
'5 displays the Retry and Cancel buttons
'16 displays the Critical Message icon
'32 displays the Warning Query icon
'48 displays the Warning Message icon
'64 displays the Information Message icon
'4096 is a system modal; all applications are suspended until the user responds 
' to the message box (in other words, this message box stays on top of all applications)
'
'TODO:
'1. Make it display random words other than "derp"
'2. Have it say the word displayed?
'3. Find out how to hide this from the task manager <insert evil face emoji>