do..loop

循環語句，直到知足某個條件

Sub 事例()
Dim a%
Do
a = a + 1
If a > 10 Then
MsgBox a & "大於10"
Exit Do
End If
Loop
End Sub