Exit do 全て抜ける

Question

Do whileがネストされている状態で、一番内側から、全てのDo whileから抜け出すことはできますでしょうか？
Exit do を2回使ないのが条件です。

Do While

Do while
Exit do 'ここで外側のループからも抜けたい
Loop
Loop

Answer 1

GoTo ですかね（推奨しませんが、、、）

    Do While
        Do While
            GoTo LOOP_EXIT
        Loop
    Loop
LOOP_EXIT:

あとは、内側のループ直前にループ強制終了フラグ=Falseとしておいて、
内側のループで外側のループも抜けたい場合に同フラグをTrueにしてExit Doした後、
内側のループ直後でフラグ判定して抜ける等。

    Dim ループ強制終了フラグ As Boolean
    Do While
        ループ強制終了フラグ = False
        Do While
            ループ強制終了フラグ = True
            Exit Do
        Loop
        If 強制終了フラグ = True Then
            Exit Do
        End If
    Loop

とする等。

Answer 2

Exit doを抜けたあとでもう一つ書けばよろしい

Answer 3

Gotoというのがありました。