Dim Prozess As String = TextBox1.Text
        Dim Vorhanden As Boolean
        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
            Else
                Vorhanden = False
            End If
 
        Next
 
        If Vorhanden Then
            MsgBox("Der Prozess ist bereits in der Liste!", _
              MsgBoxStyle.Critical, "Fehler")
        Else
            CheckedListBox1.Items.Add(Prozess & ".exe")
        End If