Rem This is a remark, and is skipped by the compiler.
Sub Main()
    Dim Answer, Msg          ' Declare variables.

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

        If Answer >= 1 And Answer <= 3 Then          ' Check range.
            Exit Do          ' Exit Do...Loop.
        Else
            Beep          ' Beep if not in range.
        End If
    Loop
    MsgBox "You entered a value in the proper range."
End Sub