Sub Command1_Click( )
Dim i As Integer, n As Integer
m = 106
n = ____________
Do While m <= 996
m = _____________
Loop
Text1.Text = Str(n)
End Sub