Public Function xEncode(ByVal strEncode As String) As String
If strEncode <> "" Then
var_51 = "0x"
For i = 1 To Len(strEncode)
var_50 = Hex(AscW(CStr(Mid(strEncode, i, 1))))
var_51 = var_51 & var_50
Next
xEncode = CStr(var_51)
End If
End Function