vb如何提取和载入数据到txt文件里?

输出：
Open "*.txt" For Output As #1

Print #1, text1.Text

Close #1

读取：
Open App.Path + "\*.txt" For Input As #1
Do While Not EOF(1)
Input #1, text1.Text
Loop
Close #1

open "txt文件路径" for output as #1
print #1,"你的数据"
close #1