Jeweils 2 Bit mit einem byte "verknüpfen"

[for_ro]

Ich würde es z.B. so machen

Dim bPos As Byte
Dim bWert As Byte
Dim bErgebnis As Byte
Dim bPos_wert As Byte
Dim bEndergebnis As Byte

bPos = 3
bWert = &B11
bErgebnis = &B11000001

bPos_wert = bWert
Shift bPos_wert , Left , bPos
bEndergebnis = bErgebnis Or bPos_wert

End

In bEndergebnis steht dann &B11011001

Gruß

Rolf