當條件為 True 時，或直到條件變為 True 時，重復執行壹個語句塊中的命令。
語法
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop
Do...Loop 語句示例
本示例示範如何使用 Do...Loop 語句。內層的 Do...Loop 語句循環到第 10 次時將標誌值設置為 False，並用 Exit Do 語句強制退出內層循環。外層循環則在檢查到標誌值為 False 時，馬上退出。
Dim Check, Counter
Check = True: Counter = 0 ' 設置變量初始值。
Do ' 外層循環。
Do While Counter < 20 ' 內層循環。
Counter = Counter + 1 ' 計數器加壹。
If Counter = 10 Then ' 如果條件成立。
Check = False ' 將標誌值設成 False。
Exit Do ' 退出內層循環。
End If
Loop
Loop Until Check = False ' 退出外層循環。