كود
Public Function DeCode(m_Str As String) As String
Dim X As Integer,S As String

For X = 1 To Len(m_Str)
S = S & (Chr(255 - Asc(Mid(m_Str,X,1))))
Next X

DeCode = S
End Function