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

Public Class Form1

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strArray() As String = TextBox1.Text.Split( " ")
Dim intArray(100) As Int32
Dim i As Int32
For i = 0 To strArray.GetUpperBound(0)
intArray(i) = Convert.ToInt32(strArray(i))
Next
ReDim Preserve intArray(i - 1)
Array.Sort(intArray)
For i = 0 To intArray.GetUpperBound(0)
TextBox2.Text &= intArray(i).ToString & " "
Next
End Sub
End Class

1框中输入数字，点击按钮，2框中显示排序好的数字

Dim FileNumber
FileNumber = FreeFile ' 取得未使用的文件号。
Open "c:&#