{quote}{login=Владимир}{date=04.07.2011 05:52}{thema=}{post}Здесь уже вычисляли - http://www.planetaexcel.ru/forum.php?thread_id=356{/post}{/quote}  
Скачал файл по по указанной вами ссылке Тест_UDF_crc32.xls  
 
В module1 добавил следующее:  
 
Sub qwe()  
Dim s As Variant  
'Class_Initialize  
s = CalcCRC32_File("c:\test.pdf")  
End Sub  
 
Пишет ошибку Sub or Function not defined, доходя до функции  
 
Public Function CalcCRC32_File(sFilename As String) As Long  
Dim arr() As Byte  
   arr() = File2Array(sFilename)  
   CalcCRC32_File =CalcCRC32_Arr(arr())  
End Function