Dim Vorhanden As Boolean = false
   Dim s As String = TextBox1.Text & ".exe"
 
   For Each item As String In CheckedListBox1.Items
 
       If item.Trim.ToUpper = s.Trim.ToUpper Then
          Vorhanden = True: exit for
       End If
   Next item