Private Sub cmd_GrundEntf_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmd_GrundEntf.Click
        Dim i As Integer
        Dim Remove As String
        Dim Gruende As String = File.ReadAllText(GruendePath)
 
        Try
            For i = 0 To clist_Grund.CheckedItems.Count - 1
                MsgBox(clist_Grund.CheckedItems.Item(i) & "  " & _
                  clist_Grund.CheckedItems.IndexOf( _
                  clist_Grund.CheckedItems.Item(i))) '<--- zum Kontrollen der 
                ' Checked Items
                Remove = clist_Grund.CheckedItems.Item(i)
 
                File.WriteAllText(GruendePath, Gruende.Replace("|" & Remove, _
                  ""))
                cList_Einlesen()
            Next
        Catch ex As IndexOutOfRangeException
            Return
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub