Анекдот №108428

Public Sub MudakDetect(UserName as String)
If UserName = "Alik" Then
Do
Screen.Print "Current user is MUDAK!!!"
Loop
End If
End Sub