Checksum

I can write 10 character in the password textbox and get access, but i only send in 8 character in the makekey..what's wrong ?
Thanks for help!
//Dave

Function iicsa(ch As String) As Long
    Dim sList As String
    sList = "_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    iicsa = InStr(1, sList, c) - 1
End Function

Function CheckPassword(checkSum As Long) As Boolean
    Dim passWd As String
    Dim q As Long
    Dim n As Long
    passWd = txtPassword.Text
    For n = 1 To Len(passWd)
        q = q Xor iicsa(Mid(passWd, n, 1))
    Next
   
    If (q = checkSum) Then
    Unload Me
    mdiMain.Show
Else
    CheckPassword = False '<<==
    MsgBox "Wrong password!" & vbCrLf & "", vbCritical, ""
    End
End If
   
End Function

Function makekey(passWd As String) As Long
    Dim q As Long
    Dim n As Long
    q = 0
    For n = 1 To Len(passWd)
        q = q Xor iicsa(Mid(passWd, n, 1))
    Next
    makekey = q
End Function
 
Private Sub cmdCancel_Click()
    Unload frmPassword
End Sub

Private Sub cmdOk_Click()
    Dim key As Long

    key = makekey("54432323")
    Debug.Print CheckPassword(key)
   
End Sub

Private Sub Timer2_Timer()

 If txtPassw = "" Then
    cmdOk.Enabled = False
Else
   cmdOk.Enabled = True
End If
End Sub

Private Sub txtPassw_KeyPress(keyascii As Integer)

   keyascii = Asc(UCase$(Chr(keyascii)))
   If keyascii = 13 Then cmdOk_Click
End Sub

Private Sub Timer1_Timer()

Static dtmintialTime As Date
If dtmintialTime = 0 Then
    dtmintialTime = Now
ElseIf DateAdd("n", 5, dtmintialTime) < Now Then
    MsgBox "End", vbInformation, ("Info")
dtmintialTime = Now
 End
End If
End Sub