Example - Rem Statement

1. Rem This is a remark, and is skipped by the compiler.

   Sub Main()

   1. Dim Answer, Msg          ' Declare variables.

      Do

      1. Answer = InputBox("Enter a value from 1 to 3.")

         Answer = 2

         If Answer >= 1 And Answer <= 3 Then          ' Check range.

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

         Else

         1. Beep          ' Beep if not in range.

         End If

      Loop

      MsgBox "You entered a value in the proper range."

   End Sub