Чтение TXT (DXF) и вывод в TXT

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dxf() As String = IO.File.ReadAllLines("tst.dxf", System.Text.Encoding.Default)
        Dim section As New List(Of String)
        Dim info As New List(Of pLineInfo)
        Dim bb As Boolean
        'выделяем раздел графических примитивов чертежа (ENTITIES)
        For Each s As String In dxf
            If s = "ENTITIES" Then bb = True
            If bb Then section.Add(s)
            If s = "ENDSEC" Then bb = False
        Next
        Dim inf As pLineInfo
        Dim nn As Integer
        bb = False
        For i = 0 To section.Count - 1
            If section(i).StartsWith("Стена") OrElse section(i).StartsWith("Плита") Then
                Dim ss() As String = section(i).Split("_")
                inf = New pLineInfo(CDbl(ss(1)) / 1000, CDbl(ss(2)) / 1000)
                i += 1
                nn = -1
                bb = True
            End If
            If bb Then
                If section(i) = "90" Then 'код числа вершин
                    i += 1
                    nn = section(i)
                End If
                If section(i) = "10" Then 'код X
                    i += 1
                    inf.xx.Add(CInt(section(i)) / 1000)
                End If
                If section(i) = "20" Then 'код Y
                    i += 1
                    inf.yy.Add(CInt(section(i)) / 1000)
                    nn -= 1
                End If
                If nn = 0 Then
                    info.Add(inf)
                    bb = False
                End If
            End If
        Next
        'вывод info
        '...
    End Sub
End Class
Public Class pLineInfo
    Public Property dd As Double
    Public Property hh As Double
    Public xx As List(Of Integer)
    Public yy As List(Of Integer)
    Public Sub New()
        MyBase.New()
        xx = New List(Of Integer)
        yy = New List(Of Integer)
    End Sub
    Public Sub New(ByVal d As Double, ByVal h As Double)
        Me.New()
        _dd = d
        _hh = h
    End Sub
    Public Overrides Function toString() As String
        'вывод информации по объекту в требуемом виде
        '...
    End Function
End Class