ok... thank you, than it seems there is a problem with my
CRC calculation. if the value for the CRC is <= 127 everthing works fine.
If the value is > 127 it won't work.
do you have any ideas?
Dim k As Int
intCrc16RX = Bit.Xor(intCrc16RX, buf)
For j = 0 To 7 Step 1 ' for each bit
k = Bit.And(intCrc16RX,1) ' memo bit 0 state
intCrc16RX = Bit.And(((Bit.And(intCrc16RX,0xFFFE)) / 2) , 0x7FFF) ' Shift right with 0 at left
If k > 0 Then intCrc16RX = Bit.Xor(intCrc16RX,0xA001) ' Bocuse
Next
Return intCrc16