Dim f As StreamReader = File.OpenText(e.FullPath)
Dim line As String
Dim i As Integer
For i = 0 To 5
    line = f.ReadLine()
    If line.IndexOf("K O P I E R A U F T R A G") >= 0 Then
        Debug.WriteLine("Found 'K O P I E R A U F T R A G'")
        ' jetzt auf den Anfang der Datei zurück...
        f.BaseStream.Seek(0, SeekOrigin.Begin)
        ' Hier bekommt man dann erst ein paar Zeilen nach der Zeile, in der der 
        ' Suchstring gefunden wurde und dann die gesamte Datei nochmal
        Dim content As String = f.ReadToEnd()
        SendMail(content)
        Exit For
    End If
Next
f.Close()

Zeile 1
Zeile 2
K O P I E R A U F T R A G
Zeile 4
Zeile 5
Zeile 6
Zeile 7

Zeile 4
Zeile 5
Zeile 6
Zeile 1
Zeile 2
K O P I E R A U F T R A G
Zeile 4
...weiter bis zum Ende...