Private Sub MyButton_Click()   

   Dim strdata As String
   strdata = "Hello World!"

   Dim strlength As Long
   strlength = Len(strdata)

   'Convert the string to byte array
   Dim bindata() As Byte
   ReDim bindata(1 To strlength)
   For i = 1 To strlength
      bindata(i) = Asc(Mid(strdata, i, 1))
   Next i

   'Initialize the crc variable to store intermediate results between function calls
   Dim crcvar As Long
   FCRC32_Init crcvar

   'Update the crc variable with first part
   Dim firstpart As Long
   firstpart = strlength / 3
   FCRC32_Update crcvar, bindata(1), firstpart

   'Update the crc variable with second part
   FCRC32_Update crcvar, bindata(firstpart + 1), strlength - firstpart

   'Get the checksum
   Dim checksum As Long
   checksum = FCRC32_Final(crcvar)

   'Show the hexadecimal representation of the checksum
   MsgBox FCRC_LongToHex32(checksum, True)

End Sub