Rem This is a remark 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