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

Public Function HexToByte(ByVal HexStr As String) As Byte()
     Dim i As Long, bData() As Byte, cbHex As Long, a As Long
 
     cbHex = Len(HexStr)
     ReDim bData(cbHex - 1)
 
     For i = 0 To cbHex - 1 Step 2
          bData(a) = "&H" & Mid$(HexStr, i + 1, 2)
          a = a + 1
     Next i
 
     HexToByte = bData
End Function

Debug.Print "CRC        : 0x" & Hex(CRC.CRC(bData, Len(StrHex) / 2))