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

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

Private Sub Command1_Click()   'Кнопка  ЗАПИСАТЬ
Dim i As Integer
  Open App.Path + "\" + "1.txt" For Output As #1
  For i = 0 To Controls.Count - 1
    If TypeName(Controls(i)) = "TextBox" Then
      Write #1, Controls(i).Text
    End If
  Next i
  Close #1
End Sub
 
Private Sub Command2_Click()    ' Кнопка ПРОЧИТАТЬ
Dim i As Integer, a
 Open App.Path + "\" + "1.txt" For Input As #1
  For i = 0 To Controls.Count - 1
    If TypeName(Controls(i)) = "TextBox" Then
      Input #1, a: Controls(i).Text = a
    End If
  Next i
 Close #1 ': Exit Sub '?
End Sub

 For i = 0 To 70              'Количество Текстбоксов не в массиве
    Write #1, Controls("TextBox" & i).Text
  Next i