Function sXOR(sText, sKey) On Error Resume Next Dim i, s, k For i = 1 To Len(sText) s = Mid(sText, i, 1): k = Asc(s): k = k Xor Len(sKey): k = Chr(k): sXOR = sXOR & k NextEnd Function