Sub blockIf() Dim bytAge As Byte If bytAge < 21 Then MsgBox "You may not purchase alcohol.", , "Underage" End End If End Sub