[عبدالله الدوسري]

وعليكم السلام ورحمة اللة وبركاته

كود :

Dim MyArabicText As String = "ضع الكلام هنا"
Dim Output As String
For Each Chrstr As Char In MyArabicText
Output &= "U+" & CInt((Chrstr)c)).ToString("X4")) & "/"
Next

Msgbox ( Output)

جرب الكود كتبتة على السريع بالهاتف لاني بالخارج.
لم اجرب الكود .