VB保存Textbox数据到文本，急

我的VB界面里有9个text1.text；text2.text；text3.text....
我想实现的功能:
1.点击Cmd1按钮就能把这9个textbox里的数据保存到文本文件里
2.点击Cmd2按钮就能把这个保存的文件里的数据读取到各个textbox里
我想实现这两个功能请求高手相助，全部的分都给了
Private Sub Command7_Click()
CommonDialog1.Filter = "*.txt"
CommonDialog1.ShowSave
CommonDialog1.FilterIndex = 1
If CommonDialog1.FileName = "" Then Exit Sub
fn = FreeFile()
Open CommonDialog1.FileName For Output As fn
Print #fn, Text1.Text
Print #fn, Text2.Text
Print #fn, Text3.Text
Print #fn, Text4.Text
Print #fn, Text5.Text
Print #fn, Text6.Text
Print #fn, Text7.Text
Print #fn, Text8.Text
Print #fn, Text9.Text
Print #fn, Text10.Text
Print #fn, Text11.Text
Print #fn, Text12.Text
Print #fn, Text13.Text
Print #fn, Text14.Text
Print #fn, Text15.Text
Print #fn, Text16.Text
Print #fn, Text17.Text
Print #fn, Text18.Text
Print #fn, Text19.Text
Close #fn

Private Sub Cmd1_Click()
Dim Var as String
Var = Text1.Text & vbCrlf & Text2.Text & vbCrlf & Text3.text & vbCrlf & Text4.text & vbCrlf & Text5.text & vbCrlf & Text6.text & vbCrlf & Text7.text & vbCrlf & Text8.text & vbCrlf & Text9.text
'以下PathName表示你要保存的路径（路径两边要加双引号）
Open PathName For Output As #1
Print #1,Var
Close #1
End Sub

Private Sub Cmd2_Click()
Dim VarArray(8) as String
Dim i as Integer
'以下PathName与上面的代码的PathName值相同
Open PathName For Input As #1
For i = 0 to 8
Line Input #1,VarArray(i)
Next
Close #1
Text1.Text = VarArray(0)
Text2.Text = VarArray(1)
Text3.Text = VarArray(2)
Text4.Text = VarArray(3)
Text5.Text = VarArray(4)
Text6.Text = VarArray(5)
Text7.Text = VarArray(6)
Text8.Text = VarArray(7)
Text9.Text = VarArray(8)
End Sub

textbox数据 保存到数据库（可利用dataset，dataadapter） vb中的pinter怎样打印textbox数据 vb.net 的textbox的数据绑定 请问在vb.net中如何把sql中的数据读取到textbox中? vb textbox 如何自动保存 不是点击按钮让它保存到同目录的.txt格式的文本 VB 保存数据 关于VB保存数据， 串口实时数据，用vb实时保存到access， VB中在textbox中怎么实现快捷键保存？ 在VB中怎样逐行读取 TextBox 的数据?