CRC16...

P.S. the code requires one text box (text1), one label (label2) and one command button (command1).

'***************************************************************

' Name: CRC Codes

' Description:Creates a number that coresponds to a specific stri

'     ng. Allows you to check if the string has been modified. Usefull



'     for sensitive data. Hard to crack since user does not know how th

    '     e CRC code was created.

' By: Jan Nawara

'

'

' Inputs:When making a code requires a string and CRC_Make must b

'     e true.

When checking a code requires a string, CRC_Make must be False and the original CRC code.
'

' Returns:When making returns the CRC code, when checking returns

'     true if code matches string.

'

'Assumes:Assumes there are not NULL cahracters in the string.

'

'Side Effects:May have trouble with international systems. (Untes

'     ted)

'

'Warranty:

'Code provided by Planet Source Code(tm) (http://www.Planet-Sourc

'     e-Code.com) 'as is', without warranties as to performance, fitnes

'     s, merchantability,and any other warranty (whether expressed or i

'     mplied).

'Terms of Agreement:

'By using this source code, you agree to the following terms...

' 1) You may use this source code in personal projects and may co

'     mpile it into an .exe/.dll/.ocx and distribute it in binary forma

'     t freely and with no charge.

' 2) You MAY NOT redistribute this source code (for example to a

'     web site) without written permission from the original author.Fai

'     lure to do so is a violation of copyright laws.

' 3) You may link to this code from another website, provided it

'     is not wrapped in a frame.

' 4) The author of this code may have retained certain additional

'     copyright rights.If so, this is indicated in the author's descrip

'     tion.

'***************************************************************




Public Function CRC_Code(CRC_String As String, CRC_Make As Boolean, Optional CRC_Number As Variant)

    'Pass a string to derive CRC code from or to check against a CRC

    '     code

    'To make a CRC code pass a string to make the code from and pass

    '     true to CRC_Make

    'Eg. Some_CRC_Number = CRC_Code (Some_String, True)

    'Returns the CRC Number derived from the string

    'To check a CRC code pass a string to check against, pass False t

    '     o CRC_Make and pass the CRC code to check

    'Eg. CRC_Match_Boolean = CRC_Code (Some_String, False, Some_CRC_N

    '     umber)

    'Returns True if the CRC code matches the string

    Dim Hold As Long
    Dim A as Integer


    If CRC_Make = True Then


        For A = 1 To Len(CRC_String)
            Hold = Hold + Asc(Mid(CRC_String, A, 1))
        Next

        CRC_Code = Hold
    ElseIf CRC_Make = False Then


        For A = 1 To Len(CRC_String)
            Hold = Hold + Asc(Mid(CRC_String, A, 1))
        Next



        If Hold = CLng(CRC_Number) Then
            CRC_Code = True
        Else
            CRC_Code = False
        End If

    End If

End Function

kamall, the code works great. Thank you very much.
I will give you 100 additional points for your fast reply.
Also thanks for setiawan for his code.