Imports Encoding = System.Text.Encoding
Module VBModule
Sub Main()
Dim unicode_message As String = "Hèllö Wôrld"
Dim ISO_8859_1 As Encoding = Encoding.GetEncoding("ISO-8859-1")
Dim ascii_bytes As Byte() = ISO_8859_1.GetBytes(unicode_message)
Console.WriteLine(unicode_message)
Console.WriteLine(BitConverter.ToString(ascii_bytes))
End Sub
End Module