Dim lines() As String = IO.File.ReadAllLines("C:\Test\lines.txt")
 
        For i As Integer = 2 To lines.Length - 2
            If lines(i).StartsWith("**PORT ID") Then
                lines(i - 2) = "**" & lines(i - 2)
                lines(i) = "**" & lines(i)
                lines(i + 1) = "**" & lines(i + 1)
            End If
        Next
        IO.File.WriteAllLines("C:\Test\linesout.txt", lines)

________
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