Hallo,

wenn Du die 8 Eingänge an einem ganzen Port angeschlossen hast, kannst Du den Wert direkt auslesen, zB.
einevariable = PortB
und diese zum berechnen verwenden.

Vorher: Dim einevariable as Byte