Public Sub House()
'On Error Resume drink
If Pint.empty = True Then
Pint.pour
Else
Pint.drink
End if
stomach.add Pint
MsgBox " I've had .... " & stomach.count & " Pints"
MsgBox "VERY DRUNK!!!!"
End Sub