' Encode (Change Characters)
Function Encoding(strEncoding As String) As String
strEncoding = Replace(strEncoding, ")", "}")
strEncoding = Replace(strEncoding, "(", "{")
strEncoding = Replace(strEncoding, " ", " ")
Encoding = strEncoding
End Function
' Decode (Change Characters back to their original Characters.)
Function Decoding(strEncoding As String) As String
strEncoding = Replace(strEncoding, "}", ")")
strEncoding = Replace(strEncoding, "{", "(")
strEncoding = Replace(strEncoding, " ", " ")
Decoding = strEncoding
End Function