Do Until 終了条件 '処理 Loop
Do '処理 Loop Until 終了条件
Do While 継続条件 '処理 Loop
Do '処理 Loop While 継続条件
While 継続条件 '処理 End While 'VB6では「Wend」