Private Sub Command1_Click()
      Dim CRC() As Byte
      Dim d() As Byte '待傳輸數據
      ReDim d(6) As Byte
      d(0) = &H5
      d(1) = &H3
      d(2) = &H7
      d(3) = &H0
      d(4) = &H0
      d(5) = &H39
      CRC = CRC16(d) '調用CRC16計算函數
      'CRC(0)為高位
      'CRC(1)為低位
    End Sub
    '注意：在數據傳輸時CRC的低位可能在前，而高位在后。

    Function CRC16(data() As Byte) As String
      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 5
        CRC16Lo = CRC16Lo Xor data(i) '每一個數據與CRC寄存器進行異或
        For Flag = 0 To 7
          SaveHi = CRC16Hi
          SaveLo = CRC16Lo
          CRC16Hi = CRC16Hi \ 2            '高位右移一位
          CRC16Lo = CRC16Lo \ 2            '低位右移一位
          If ((SaveHi And &H1) = &H1) Then '如果高位字節最后一位為1
            CRC16Lo = CRC16Lo Or &H80      '則低位字節右移后前面補1
          End If                           '否則自動補0
          If ((SaveLo And &H1) = &H1) Then '如果LSB為1，則與多項式碼進行異或
            CRC16Hi = CRC16Hi Xor CH
            CRC16Lo = CRC16Lo Xor CL
          End If
        Next Flag
      Next i
      Dim ReturnData(1) As Byte
      ReturnData(1) = CRC16Lo              'CRC低位（前一位）
      ReturnData(0) = CRC16Hi              'CRC高位（后一位）
      CRC16 = ReturnData
    End Function