Sub ifDemo() Dim bytAge As Byte bytAge = InputBox("Enter your age.", "Age") If bytAge < 21 Then MsgBox "You may not purchase alcohol.", , "Underage" End Sub