[vbnet]

.....

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim s As String = "مرحباً"

    ' تحويل النص إلى مصفوفة بايتات
    Dim arr() As Byte = System.Text.Encoding.UTF8.GetBytes(s)

    ' تحويل مصفوفة البايتات إلى نص
    Dim txt As String = System.Text.Encoding.UTF8.GetString(arr)

    MsgBox(txt)

End Sub

.....