Public Sub sowas()
 
 
        Dim lines As New List(Of String) _
          (IO.File.ReadAllLines("C:\daten\csvx.txt"))
 
        For i As Integer = lines.Count - 1 To 1 Step -1
            If lines(i).StartsWith("Familienname") Then lines.RemoveAt(i)
        Next
 
        IO.File.WriteAllLines("C:\daten\csvx_out.txt", lines.ToArray)
    End Sub