Computes the CRC-32 checksum of an ANSI string.
VB6/VBA
Debug.Print "Testing CRC_String ..."
Dim strData As String
Dim nCRC As Long
strData = "123456789"
nCRC = CRC_String(strData, 0)
Debug.Print "CRC32(" & strData & ")=" & Hex(nCRC)
Output
Testing CRC_String ... CRC32(123456789)=CBF43926
VB.NET
Console.WriteLine("Testing CRC_String ...")
Dim strData As String
Dim nCRC As Integer
strData = "123456789"
nCRC = Crc.Data(strData)
Console.WriteLine("CRC32(" & strData & ")=" & Hex(nCRC))
[Contents]