Example - Exit Statement

1. ' This sample shows Do ... Loop with Exit Do to get out.

   Sub Main ()

   1. Dim Value, Msg          ' Declare variables.

      Do

      1. Value = InputBox("Enter a value from 5 to 10.")

         If Value >= 5 And Value <= 10 Then          ' Check range.

         1. Exit Do          ' Exit Do...Loop.

         Else

         1. Beep          ' Beep if not in range.

         End If

      Loop

   End Sub