如何利用VB小程序连续把多个文本框的内容生成到一个TXT文本

Dim FileNumber
FileNumber = FreeFile ' 取得未使用的文件号。
Open "c:\1.txt" & For Output As #FileNumber ' 创建文件1.txt。
print #FileNumber, Text1.Text & vbCrlf & Text2.Text ' 将两个文本框内容输出文本至文件中，多个文本框类推。
Close #FileNumber ' 关闭文件。