CRC_Bytes

Computes the CRC-32 checksum of an array of bytes.

VB6/VBA

Debug.Print "Testing CRC_Bytes ..."
Dim abData() As Byte
Dim nLen As Long
Dim nCRC As Long
Dim i As Long

nLen = 9
ReDim abData(nLen - 1)
' Create a 9-byte array equal to "123456789"
For i = 0 To nLen - 1
    abData(i) = i + Asc("1")
Next
nCRC = CRC_Bytes(abData(0), nLen, 0)
Debug.Print "CRC32=" & Hex(nCRC)

Output

Testing CRC_Bytes ...
CRC32=CBF43926

VB.NET

Console.WriteLine("Testing CRC_Bytes ...")
Dim abData() As Byte
Dim nCRC As Integer

' Create a 9-byte array equal to "123456789"
abData = System.Text.Encoding.Default.GetBytes("123456789")
nCRC = Crc.Data(abData)
Console.WriteLine("CRC32=" & Hex(nCRC))

[Contents]