Private Sub CRC32FileSample()
    ' Sample of the CRC32File Function.

    Dim avarFiles() As Variant
    DirToVariantVector avarFiles, CombinePathAndFile(GetWindowsDirectory, "*.*"), Null, False, True, True, True

    Dim lngCurFIle As Long
    For lngCurFIle = 1 To UBound(avarFiles)
        Debug.Print Now & " " & avarFiles(lngCurFIle) & " ";

        Dim varCRC As Variant
        varCRC = CRC32File(avarFiles(lngCurFIle))

        Debug.Print IllustrateValue(varCRC)
    Next lngCurFIle
End Sub