[الماجيك مسعد]

السلام عليكم

ازاى اشفر

"ههههه"

الى

%u0647%u0647%u0647%u0647%u0647

---

اسف على الازعاج

لقد استخدمت فنكشن من الموضوع هذا
http://vb4arb.com/vb/showthread.php?tid=21959

الكود بعد التعديل اللازم

Function StringToHex(ByVal v As String) As String
Dim r As String, i As Integer, h As String
For i = 1 To Len(v)
h = "%u0" & Hex(AscW((Mid$(v, i, 1))))
r = r & IIf(Len(h) = 1, "0", "") & h
Next
StringToHex = r
End Function