Question

vb 在一个文本保存多个文本框的内容，找开文本时，可显示在原来的文本框中

找开的程序 如下
Private Sub Command2_Click()
Dim i As Long
Dim a As String
Dim t As String

'CancelError 为 True。
On Error GoTo ErrHandler
'设置过滤器。
CommonDialog2.Filter = "00(*.TFt)|*.TFT"
'指定缺省过滤器。

CommonDialog2.ShowOpen
CommonDialog2.FilterIndex = 1
If CommonDialog2.FileName <> "" Then
Open CommonDialog2.FileName For Input As #2
Do While Not EOF(2) ' 循环至文件尾
Line Input #2, a
For i = 0 To 5
Text1(i).Text = a & vbCrLf
Next i
Loop
Close #2
End If
CommonDialog2.FileName = ""
ErrHandler:
'用户按“取消”按钮。
Exit Sub
End Sub
文本框显示的都是最后一个框输入的内容，而不是一一对应的内容

Answer 1

For i = 0 To 5
Text1(i).Text = a & vbCrLf
Next i
修改为：
if i>=text1.count then exit do
Text1(i).Text = a
i=i+1

Answer 2

vb中如何把多个文本框里输入的内容保存到一个TXT文件里啊！比如程序有三个第一个很简单 open

Answer 3

Open CommonDialog2.FileName For APPEND As #2