Example - Beep Statement

Sub Main ()
    Dim Answer, Msg                                      ' Declare variables.
    Do
        Answer  = InputBox("Enter a value from 1 to 3.")
        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