Brauche hilfe beim Text Splitten.

Howdi,
bräuchte mal ein wenig hilfe.
Also ich habe eine Textdatei die ungefähr so aufgebaut ist:

Montag
Aufgabe1 Ichwillwascoden
Aufgabe2 kommeabernichtweiter
Aufgabe3 weilichzudoofbin-.-

Dienstag
Aufgabe1 Ichwillwascoden
Aufgabe2 kommeabernichtweiter
Aufgabe3 weilichzudoofbin-.-

usw. bis freitag

Habe die Textdatei jetzt geladen
und prüfe jede zeile bis ein "Montag" drin vorkommt.
(Der Montag kommt öfters vor, 4x insgesammt)

Soweit bin ich bis jetzt:

Code:

---

       
vZeilen = Split(vInhalt, vbNewLine)
       
For cnt = 0 To UBound(vZeilen)
    If InStr(vZeilen(cnt), suchWort) Then
            MsgBox "Montag gefunden"

            'vZeilen (cnt) + vbCrLf
            'msgBox vZeilen (cnt)   
            'Open "C:\testfile.txt" For Output As #1
                  '    Print #1, "Aufgabe1"
                  '    Print #1, "Aufgabe2"
                  '    Print #1, "Aufgabe3"
            'Close #1
      End If
Next cnt

---

Nach der MsgBox "Montag gefunden" will ich jetzt die nächsten
3 Zeilen, sprich
Aufgabe1 Ichwillwascoden
Aufgabe2 kommeabernichtweiter
Aufgabe3 weilichzudoofbin-.-

in eine Neue Textdatei speichern. Jedoch raff ich es nciht wie ich jetzt in die nächste zeile Springe.
Das auskommentierte funktioniert leider nicht o.O

Vllt. kann mir ja wer helfen :) Hoffe jemand versteht was ich will :confused:

Greetz