VB 菜单设计

有在VB界面上有3个text，我想在菜单中设计“打开”和“保存”2个功能，满足：保存时能同时保存3个TEXT的内容，最好是保存在一个文件中，打开时也是同样，打开一个文件，就可以使3个TEXT被赋予文件中的不同内容。 非常感谢 ，毕设要用到。

Private Sub 保存_Click()
Open "d:\a.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
Close #1
End Sub

Private Sub 打开_Click()
Dim a, b, c
Open "d:\a.txt" For Input As #2
Line Input #2, a
Line Input #2, b
Line Input #2, c
Close #2
Text1.Text = a
Text2.Text = b
Text3.Text = c
End Sub

我暂时保留我的看法！