'Code des Formulars (1 Command Button)
 
Option Explicit
 
Private CRC As Crc16
 
Private Sub Form_Load()
     Set CRC = New Crc16
 
     With CRC
          .Polynom = &H1021
          .InitValue = &HFFFF
          .IndirectInit = True
          .FinalValue = &H0
          .ReverseCRC = False
          .ReverseData = False
     End With
End Sub
 
Public Function HexToByte(ByVal HexStr As String) As Byte()
     Dim I As Long, bData() As Byte, cbHex As Long
 
     cbHex = Len(HexStr)
     ReDim bData(cbHex - 1)
 
     For I = 0 To cbHex - 1 Step 2
          bData(I) = "&H" & Mid$(HexStr, I + 1, 2)
     Next I
 
     HexToByte = bData
End Function
 
Private Sub Command1_Click()
     Dim StrHex As String, bData() As Byte
 
     Debug.Print "CRC (Check): 0x" & Hex(CRC.CRC_Str("123456789"))
 
     StrHex = _
       "8001020344544F4E41E0B35441B7430C45FFDFE26A2D686E9F0AD3D1C41B21564E0948" & _
       "318DB7F0958292A2B2C2D2E2F303132333435363738393A004B3D3E3F4041424344454" & _
       "4748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F60616263646566676869" & _
       "A6B6C6D6E6F707172737475767778797A7B7C7D"
     Debug.Print "CRC (Hex)  : 0x" & Hex(CRC.CRC_Str(StrHex))
 
     bData = HexToByte(StrHex)
     Debug.Print "CRC        : 0x" & Hex(CRC.CRC(bData, Len(StrHex)))
End Sub

may be the force with you