Servus,

ich hoffe das von mir eben geschreieben Beispiel hilft dir weiter, ich teste einfach aufgrund der Byte-Position und der Bit-Position in einem Array die relevante Zahl.

Code:
Dim Output(128) As Byte 
Dim InWert      As Word
Dim BitWert     As Byte 
Dim ByteWert    As Byte 
Dim TmpByte     As Byte
Dim n           As Byte

InWert = {DeinWert} 

BitWert = InWert Mod 8
ByteWert = Int(InWert) + 1

For n = 1 To 128
  If n = ByteWert Then
    TmpByte.BitWert = 1
    Output(n) = TmpByte
  Else
    Output(n) = &h00  
  End If
Next n
Danach steht dir jedes Bit als Ergebniss in Byte und Bit in der Form:

Zustand 0: If Output(1).0 = 1 Then ...
...
Zustand 1023: If Output(12.7 = 1 Then ...

zur Verfügung.

Grüße Wolfgang