Hello, I solved the problem to let user type PW in both caps and small caracter as follows:
...
For K = 1 To Len(Me!PW)
strPW1 = strPW1 & Asc(Mid$(Me!PW, K, 0)) 'where there was 1 put 0
strPW2 = strsPW2 & Asc(Mid$(.Column(2), K, 0)) 'where there was 1 put 0
Next K
If strPW1 = strPW2 Then
...