这个函数怎么用- -

[RaidenMei]

Private Function CRC16(data() As Byte) As String
Dim CRC16Hi As Byte
Dim CRC16Lo As Byte
CRC16Hi = &HFF
CRC16Lo = &HFF
Dim i As Integer
Dim iIndex As Long
For i = 0 To UBound(data)
iIndex = CRC16Lo Xor data(i)
CRC16Lo = CRC16Hi Xor GetCRCLo(iIndex)
CRC16Hi = GetCRCHi(iIndex)
Next i
Dim ReturnData(1) As Byte
ReturnData(0) = CRC16Hi
ReturnData(1) = CRC16Lo
CRC16 = ReturnData

End Function

这个函数该怎么用啊

[一如既往哈]

sub test dim byt() as byte redim byt(2)''一般读取二进制文件到数组，这里省点事，只弄几个 byt(0)=35 byt(1)=54 byt(2)=192 debug.print crc16(byt) end sub