انا جربت كودك اخوي مداني و هذا بعد التجربة شوف ايش يطلع

هذي هي الخرجات:

من واقع التجربة اتضح ان الكود اللي انا ادخلة كنص يتم تحويله الى مصفوفة بايتات و من ثم ارجاع هذه البايتات الى نص مرة اخرة
اي بذلك يتم ارجاع نص اليونيكود المدخل على هيئة نص
طيب كيف ممكن ادخل اليونيكود على هيئته المشفرة و من ثم فك تلك الشفرة
اي بمعنى اوضح على اي هيئة ادخل كود اليونيكود لانه عندما ادخله على هيئة نص يتم تحويل هذا النص الى مصفوفة بايتات و من ثم فك شفرة هذه البايتات و ارجاعها الى نص اي نفس نص اليونيكود المدخل
و هذا هو الكود:
Private Function UnicodeToTexet(ByVal UniString As String) As String
Dim Data As Byte() = Encoding.Default.GetBytes(UniString)
Dim Result As String = Encoding.GetEncoding("utf-8").GetString(Data, 0, Data.Length)
'Dim chr As Char() = Encoding.Default.GetChars(Data)
Return MsgBox(Result)
End Function