Hallo,
so kommts mit einfacher vor, ohne Sub:

Code:
Dim B As Byte

B = Pinb And &B00111110
If B > 0 Then
    Print "OK"
Else
    Print "NOK"
End if
nach dem AND dann diese Pins auf eins, die abgefragt werden sollen, wenn dann eins dieser Pins mal high ist, ist der Gesamtwert grösser als 0 und dann trifft das zu.

PS:
hab das jetzt aber nicht in der Praxis ausprobiert !