[a.ahmed]

PHP كود :

Function UHexToString(ByVal v As String) As String
    Dim r As String, i As Integer
    For i = 0 To v.Length - 6 Step 6
        r &= ChrW(Convert.ToInt32(v.Substring(i + 2, 4), 16))
    Next
    Return r
End Function