Brauche hilfe beim Text Splitten.

[locos]

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:

        
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

Greetz