Легко — с помощью библиотечки crc32, написанной на ассемблере. Вот декларация:

Declare Function CRC32 Lib "crc32.dll" _
    (pData As Any, _
    ByVal Count As Long) As Long

А вот так, например, подсчитывается CRC строки:

Dim sIn As String
sIn = InputBox("Введите строку:")

Dim sOut As String
sOut = Hex$(CRC32(ByVal sIn, Len(sIn)))
sOut = String$(8 - Len(sOut), "0") & sOut
MsgBox sOut