Example

Do Until DefResp = vbNo
  MyNum = Int(6 * Rnd + 1)  ‘ Generate a random integer between 1 and 6.
  DefResp = MsgBox (MyNum & “ Do you want another number?”, vbYesNo)
Loop
Dim Check, Counter
Check = True: Counter = 0  ‘ Initialize variables.
Do              ‘ Outer loop.
  Do While Counter < 20   ‘ Inner loop.
   Counter = Counter + 1  ‘ Increment Counter.
   If Counter = 10 Then  ‘ If condition is True...
     Check = False    ‘ set value of flag to False.
     Exit Do       ‘ Exit inner loop.
   End If
  Loop
Loop Until Check = False   ‘ Exit outer loop immediately.