Как информацию из TextBox записать в файл в виде таблицы

Record1 = TextBox1.Text ' Заполняю переменную
        Record2 = TextBox2.Text ' Заполняю вторую перменную
        Record3 = TextBox3.Text ' 
        Record9 = TextBox9.Text ' 
        FileOpen(1, Save.FileName, OpenMode.Output) ' Создаю и открываю файл
        Print(1, Record1, Record2, Record3, Record9, "") 'Записываем текст в файл
        FileClose(1) 'Закрываем файл

 Print(1, Record1, Record2, Record3, Record9, "")

    
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        grdView1.Rows.Add()
        grdView1.Item(1, grdView1.Rows.Count - 1).Value = TextBox1.Text
        grdView1.Item(2, grdView1.Rows.Count - 1).Value = TextBox2.Text
        grdView1.Item(3, grdView1.Rows.Count - 1).Value = TextBox3.Text
        grdView1.Item(4, grdView1.Rows.Count - 1).Value = TextBox4.Text
End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        IO.File.WriteAllText("C: \131. Txt", TextBox1.Text & "|" & TextBox2.Text & "|" & TextBox3.Text & "|" & TextBox4.Text, System.Text.Encoding.Default)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim Tcon() As String = IO.File.ReadAllText("C:\131.txt", System.Text.Encoding.Default).Split("|")
            TextBox1.Text = Tcon(0)
            TextBox2.Text = Tcon(1)
            TextBox3.Text = Tcon(2)
            TextBox4.Text = Tcon(3)
        Catch ex As Exception
        End Try
    End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim t(3) As String
 
        t(0) = TextBox1.Text
        t(1) = TextBox2.Text
        'и так далее.....если надо
 
        grdView1.Rows.Add(t)
   
End Sub

Dim ttt() As TextBox
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        ReDim ttt(4)
 
        For i = 0 To 4
            ttt(i) = New TextBox
            ttt(i).Parent = Me
            ttt(i).Visible = True
            ttt(i).Left = i * ttt(i).Width
            ttt(i).Top = Me.Height - ttt(i).Height - 100
        Next (i)
    End Sub