Private Sub Command1_Click()
h = 100
n = 0
Do
h = h / 2
n = n + 1
Loop While n < 10
MsgBox h
End Sub