Private Sub Command1_Click()
Dim s, n As Long
n = 1
Do While s < 30000
s = s + n
n = n + 1
Loop
Print (n)
End Sub