...in other old languages I used, you could do stuff like this:

Code:
If A And 1
    MsgBox "Is Male"
End If
If A And 2
    MsgBox "Is employee"
End If
If A And 4
    MsgBox "Is driver"
End If
If A And 8
    MsgBox "Is smoker"
End If