Imports System
Public Module Module1
Public Sub Main()
Dim s As String = "vb.net"
Dim barray() As Byte = System.Text.Encoding.UTF8.GetBytes(s)
For i As Integer = 0 To barray.Length - 1
Console.WriteLine(barray(i))
Next
End Sub
End Module
' run:
'
' 118
' 98
' 46
' 110
' 101
' 116
'