Static bWorking As Boolean = False
 
If Not bWorking Then
  TextBox1.Text = "Auswahl" Then
  bWorking = True
  TextBox2.Text = ""
  MsgBox("Bitte klicken Sie etwas an!")
  bWorking = False
  Exit Sub
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de