求vb连续产生1-99之间整数，直到出现三个大于90的数字遍停止的代码

求vb连续产生1-99之间整数，直到出现三个大于90的数字遍停止的代码

Private Sub Command1_Click()
Dim n As Integer, m As Integer, a() As Integer
Do

n = n + 1
ReDim Preserve a(1 To n)
a(n) = Int(Rnd * 99 + 1)
Print a(n);
If n Mod 10 = 0 Then Print
If a(n) > 90 Then m = m + 1
If m = 3 Then Exit Do
Loop
Print
Print "排序后的数是"
For i = 1 To UBound(a) - 1
For j = UBound(a) To i + 1 Step -1
If a(i) > a(j) Then k = a(i): a(i) = a(j): a(j) = k
Next j, i
For i = 1 To UBound(a)
Print a(i);
If i Mod 10 = 0 Then Print
Next i
Print
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub