Imports System.IO
Module Module1
    Public Sub Main()
        Call ZeileInTextDateiEinfügen("c:\test.txt", "GOBACK")
    End Sub
 
    Sub ZeileInTextDateiEinfügen(ByVal datei$, ByVal suchbegriff$)
        Dim sr As New StreamReader(datei)
        Dim s$ = sr.ReadToEnd()
        sr.Close()
        Dim p% = s.IndexOf("GOBACK")
        p = s.IndexOf(vbCrLf, p)
        s = s.Insert(p + Len(vbCrLf), "Dein Insert String" + vbCrLf)
        Dim sw As New StreamWriter(datei)
        sw.Write(s)
        sw.Close()
    End Sub
End Module