Example - Beep Statement

  1. Sub BeepExample ()

    1. Dim Answer, Msg ' Declare variables.

      Do

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

        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

>