Private Sub Form_Load() a = 12 b = 0 Do While Not a > 16 a = a + a * 0.01 b = b + 1 Loop msgbox(b)End Sub
