>(1) The short way is to cast the return result to UInteger, and change the return type of GetCrc32() to UInteger

This line cannot be changed to UInteger:

        Dim lnCRC32Result As Integer = &HFFFFFFFF

It would give an error: "Constant expression not representable in type 'UInteger"