Чтение запись текстовых файлов с пользовательским типом данных

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Static counter As Integer
        counter = counter + 1
        Dim x As Integer
        Dim fn As Short
        fn = FreeFile()
        pilot.bizines = Val(TextBox1.Text)
        pilot.iconom = Val(TextBox2.Text)
        pilot.turist = Val(TextBox3.Text)
        pilot.tip_s = TextBox4.Text
        pilot.pilot = TextBox6.Text
        pilot.pilot_2 = TextBox7.Text
        pilot.stuart = TextBox8.Text
        x = Len(pilot)
        FileOpen(fn, "5.txt", OpenMode.Random, Len(pilot) = x)
        FilePut(fn, pilot, counter)
        FileClose(fn)
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Static counter As Integer
        counter = counter + 1
        Dim x As Integer
        Dim fn As Short
        fn = FreeFile()
        x = Len(pilot)
        FileOpen(fn, "5.txt", OpenMode.Random, Len(pilot) = x)
 
        FileGet(fn, pilot, counter)
        q.Text = pilot.bizines
        w.Text = pilot.iconom
        a.Text = pilot.turist
        r.Text = pilot.tip_s
        t.Text = pilot.pilot
        y.Text = pilot.pilot_2
        u.Text = pilot.stuart
 
        FileClose(fn)
    End Sub

        Dim txt As String = ""
        For i As Integer = 0 To M.GetLength(0) - 1
            For n As Integer = 0 To M.GetLength(1) - 1
                txt = txt & M(i, n)
                If n < M.GetLength(1) - 1 Then txt = txt & ","
            Next
            If i < M.GetLength(0) - 1 Then txt = txt & ";"
        Next

       Dim tmp() As String = txt.Split(";")
        Dim str() As String
        For i = 0 To tmp.Length - 1
            str = tmp(i).Split(",")
            For n = 0 To str.Length - 1
                M(i, n) = str(n)
            Next
        Next