Private Function CodeDeCode(Byval sSplitString As String, Byval sKey As Long) _
  As String
     Dim i  As Long
     Dim x As Long
     Dim outText As String
 
     If sSplitString = "" Then Exit Function
 
     outText = sSplitString
 
     For i = 1 To Len(sSplitString) 
            x = Asc(Mid(sSplitString, i, 1)
            x = x XOR sKey
            Mid(outText,i,1) = Chr(x)
      Next
 
      CodeDeCode = outText
End Function