Conversion Calamity

Found this in an retail till system programmed in VB, controlling whether or not the
receipt printer was of a certain type. Totally pointless; the result of
outsourcing:

Public Property Let H5000(ByVal pblnH5000 As Boolean)

    On Error Resume Next

    If UCase$(pblnH5000) = "FALSE" Or UCase$(pblnH5000) = "TRUE" Then

        mblnH5000 = pblnH5000

    End If

End Property