Problemas con comparacion de caracteres

[yera2002]

Hola a todos:

Ya encontre la solucion, el problema estaba en que estaba comparando Binarios contra texto, esto por que en la funcion de encriptacion de CAPICOM esta codificando en binario, por lo que la cambie a Base64 de tal modo que mi codigo quedo asi:

Sub cmdEncripta()
strCodigoEncripta = Trim(rstFormato("codigo"))
objCapicom.Content = strCodigoEncripta
objCapicom.SetSecret "mipass", CAPICOM_SECRET_PASSWORD
objCapicom.Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_3DES
strResultado = objCapicom.Encrypt(CAPICOM_ENCODE_BASE64)
If Len(strResultado) = 0 Then
MsgBox "Fallo al encriptar informacion.", vbCritical + vbOKOnly, "EncryptaBD"
Else
strResultado = Replace(strResultado, "'", "CHD+*=")
End If
end Sub