Анекдот №108429

Public Sub MudakDetectAdvanced()
Dim Detector as Long
Detector = MsgBox ("Your UserName is Alik?",vbYesNo)
Select Case Detector
Case vbNo
Exit Sub
Case vbYes
Do
MsgBox "You is MUDAK!!!", vbOKOnly, vbExclamation
Loop
End Select
End Sub