Dim file As String = "F:\Test\file.txt"
        Dim cnt As Integer
        Dim lines As New List(Of String)
        For Each line As String In IO.File.ReadAllLines(file)
            cnt += 1
            If cnt = 4 Then
                lines.Add("meine neue zeile")
            Else
                lines.Add(line)
            End If
        Next
        IO.File.WriteAllLines(file, lines.ToArray())

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist