Du kannst ja das Bitmuster einfach mit einem von dir definierten vergleichen.

Also Bitmuster = i

select case i
case "00111011"
Print ...

oder was meinst du?