Pour tester un seul bit à la fois, il me semble que le AND binaire existe (j'ai pas lancé VB3 depuis des lustres, je sais plus la syntaxe exacte de ce AND là).
On peut ainsi éviter de passer par le binaire de façon "visible".
Pour voir l'état d'un port, on teste toto AND 1 pour le bit 0, AND 2 pour le bit 1, AND 4 pour le bit 2, AND 6 pour 1 et 2 "cumulés". Il suffit d'établir au début les correspondances.