Сохранение текста в файл из 70 TextBox - VB

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

Вопрос такой. На форме около 70 текстбоксов. При нажатии кнопки "Сохранить" нужно, чтобы все результаты сохранились в файл.

Решение задачи: «Сохранение текста в файл из 70 TextBox»

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

                            Private Sub Command1_Click()   'Кнопка  ЗАПИСАТЬ
Dim i As Integer
  Open App.Path + "\" + "1.txt" For Output As #1
  For i = 0 To 70              'Количество Текстбоксов в массиве
    Write #1, Text1(i).Text
  Next i
  Close #1
End Sub
Private Sub Command2_Click()    ' Кнопка ПРОЧИТАТЬ
Dim i As Integer, a
'On Error Resume Next
 Open App.Path + "\" + "1.txt" For Input As #1
   For i = 0 To 70              'Количество Текстбоксов в массиве
    Input #1, a: Text1(i).Text = a
   Next i
 Close #1: Exit Sub
End Sub
                        