Private CRC16Lo, CRC16Hi
‘-------------------------------------------------------------------------------------
'CRC16()功能:计算出CRC16的校验码
Private Sub CRC16(data())
On Error Resume Next
Dim CL, CH
Dim SaveHi, SaveLo
Dim i As Integer
Dim Flag As Integer<