VB编程问题

假定上面三个text依次是text1到text3

Private Sub Command1_Click()
Dim arr
Dim num As Integer
Dim ins As Boolean
ins = False
If Text2.Text <> "" Then
   Text1.Text = Text2.Text
   Text2.Text = ""
End If
arr = Split(Text1.Text, vbCrLf)
num = Val(Text3.Text)
For i = 0 To UBound(arr)
  If arr(i) <> "" Then
        If Val(arr(i)) < num Or ins Then
           Text2.Text = Text2.Text & arr(i) & vbCrLf
        Else
         Text2.Text = Text2.Text & num & vbCrLf
         Text2.Text = Text2.Text & arr(i) & vbCrLf
         ins = True
        End If
  End If
Next i
End Sub

插入前数组是哪里来的？