'Data为字符型数组 start为开始点 size 为几个,返回的即为 CRC
Public Function CRC16(Data() As Byte, start As Integer, size As Integer) As Long
    Dim CRC16Lo     As Byte, CRC16Hi       As Byte        'CRC寄存器
    Dim CL     As Byte, CH       As Byte                  '多项式码&HA001
    Dim SaveHi     As Byte, SaveLo       As Byte
    Dim i     As Integer
    Dim Flag     As Integer
    CRC16Lo = &HFF
    CRC16Hi = &HFF
    CL = &H1
    CH = &HA0
    For i = 0 To size - 1
......................