Private Sub Command1_Click()
Do
n = n + 1
m = m + (n * 2 - 1)
If m = 100 Then
Print n
Exit Do
End If
DoEvents
Loop
End Sub