VB怎么解决数组太多而溢出窗体

Dim x(100) As Integer

Private Sub Command1_Click()
X1 = Val(InputBox("请输入筛选上限"))
X2 = Val(InputBox("请输入筛选下限"))
If X1 < X2 Then
t = X1
X1 = X2
X2 = t
End If
Print
Print "在"; X2; "与"; X1; "之间的数据有："
For i = 0 To 99
If x(i) > X2 And x(i) < X1 Then
geshu = geshu + 1
Print x(i);
If geshu Mod 20 = 0 Then Print'20个数字换行
End If
Next i
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
Print "原数组：";
For i = 0 To 99
x(i) = Rnd * 200
If i Mod 20 = 0 Then Print'20个数字换行
Print x(i);
Next i
End Sub