Private Sub DelEntry()
        'Eintrag entfernen
        If lstSchul.SelectedItem = Nothing Then
            MsgBox("Sie haben keinen Eintrag zum Löschen ausgewählt!", _
              MsgBoxStyle.Critical, "Fehler")
            Exit Sub
        End If
        Dim mbox As MsgBoxResult
        mbox = MsgBox("Soll der gewählte Eintrag wirklich gelöscht werden?", _
          MsgBoxStyle.YesNo, "Löschen bestätigen")
        If mbox = MsgBoxResult.No Then
            Exit Sub
        End If
        Dim myPfad As String = ""
        'Tag wählen
        Select Case cboTag.SelectedIndex
            Case 0
                ' Alle Tage
                Dim SplitTag() As String
                SplitTag = Split(lstSchul.SelectedItem, ",")
                Select Case SplitTag.GetValue(1)
                    Case " Montag"
                        myPfad = fMo
                    Case " Dienstag"
                        myPfad = fDi
                    Case " Mittwoch"
                        myPfad = fMi
                    Case " Donnerstag"
                        myPfad = fDo
                    Case " Freitag"
                        myPfad = fFr
                End Select
                GoTo DelAlleTage
            Case 1
                ' Montag
                myPfad = fMo
            Case 2
                ' Dienstag
                myPfad = fDi
            Case 3
                ' Mittwoch
                myPfad = fMi
            Case 4
                ' Donnerstag
                myPfad = fDo
            Case 5
                ' Freitag
                myPfad = fFr
        End Select
        Dim SplitName() As String
        Dim MyName As String = ""
        Dim nam2 As String = ""
        Dim kplEintrag As String = ""
        Dim dat As String = ""
        Dim txt() As String
        ' Name auslesen
        MyName = lstSchul.SelectedItem
        ' Namen splitten
        SplitName = MyName.Split(" ")
        nam2 = SplitName.GetValue(0) & ";" & SplitName.GetValue(1)
        ' Rest einlesen
        kplEintrag = GetContent(myPfad, nam2)
        sr = New StreamReader(myPfad)
        dat = sr.ReadToEnd
Fehler1:
        sr.Close()
        Dim ws As String = ""
        Dim sInt As Integer = 0
        sInt = dat.IndexOf(kplEintrag)
        ws = dat.Remove(sInt, kplEintrag.Length)
        File.Delete(myPfad)
        sw = New StreamWriter(myPfad)
        sw.WriteLine(ws)
        sw.Close()
        Exit Sub
 
DelAlleTage:
        MyName = lstSchul.SelectedItem
        SplitName = MyName.Split(" ")
        Dim SplitKomma As String = SplitName.GetValue(1)
        If Not SplitKomma.LastIndexOf(",") = -1 Then
            Dim SplitArray() As String
            SplitArray = SplitKomma.Split(",")
            SplitName.SetValue(SplitArray.GetValue(0), 1)
        End If
        nam2 = SplitName.GetValue(0) & ";" & SplitName.GetValue(1)
        ' Rest einlesen
        kplEintrag = GetContent(myPfad, nam2)
        sr = New StreamReader(myPfad)
        dat = sr.ReadToEnd
Fehler2:
        sr.Close()
        sInt = dat.IndexOf(kplEintrag)
        ws = dat.Remove(sInt, kplEintrag.Length)
        File.Delete(myPfad)
        sw = New StreamWriter(myPfad)
        sw.WriteLine(ws)
        sw.Close()
        Exit Sub
    End Sub