Чтение строк из файла и запись их в отдельном textbox - VB

Формулировка задачи:

Всем привет! подскажите как можно считывать из файла строки, чтоб они записывались в отдельный textbox (каждая строка из файла в свой отдельный textbox). Например: у меня есть 5 textbox'ов есть combobox. я в комбобоксе выбираю "январь" заполняю текстбоксы, нажимаю "сохранить" и вся инфа записывается в пяти строчках в один файл 1.тхт, затем выбираю в комбобоксе "февраль" заполняю все текстбоксы, нажимаю сохранить и вся инфа записывается в пяти строчках в один файл 2.тхт и т.д до 12 месяца. вот мой код как я это сделал:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FilePath As String = Path.Combine(Application.StartupPath, Me.ComboBox1.SelectedIndex + 1 & ".txt")
 
            FileOpen(1, FilePath, OpenMode.Append) 'Открываем для добавления. Если файла нет, то он создаётся
            PrintLine(1, TextBox1.Text) 'Добавляем строчки в лог файл
            PrintLine(1, TextBox2.Text)
            PrintLine(1, TextBox3.Text)
            PrintLine(1, TextBox4.Text)
            PrintLine(1, TextBox5.Text)
            PrintLine(1, "") 'Добавляем пустую строчку
            FileClose(1) 'Желательно после всех проделанных операций закрывать файл
 
            MsgBox("Данные успешно сохранены")
        Else
 
        End If
 
    End Sub

А как сдалать, чтоб можно было вытащить инфу за прошедший месяц. Например чтобы выбрал прошедший месяц, кликнул по кнопке и вся инфа выбранного месяца вписалась в текстбоксы.

Решение задачи: «Чтение строк из файла и запись их в отдельном textbox»

textual
                            Листинг программы 
                        

                             Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fn As Integer = FreeFile()
        Dim FilePath As String = Path.Combine(Application.StartupPath, Me.ComboBox1.SelectedIndex + 1 & ".txt")
        FileOpen(fn, FilePath, OpenMode.Input)
        TextBox1.Text = LineInput(fn) 
        TextBox2.Text = LineInput(fn)
        TextBox3.Text = LineInput(fn)
        TextBox4.Text = LineInput(fn)
        TextBox5.Text = LineInput(fn)
        FileClose(fn)
    End Sub
                        