如何将窗体上所有文本框内容在关闭的时候写入一个txt打开加载？

Private Sub Form_Load()
Dim s As String, i As Integer
Open App.Path & "\Set.txt" For Input As #1
Do While i <= Text1.UBound
Line Input #1, s
Text1(i) = s
i = i + 1
Loop
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
If Dir(App.Path & "\Set.txt") <> "" Then Kill App.Path & "\Set.txt"
Open App.Path & "\Set.txt" For Append As #2
For i = Text1.LBound To Text1.UBound
Print #2, Text1(i)
Next
Close #2
End Sub