Contact: aviboots(AT)netvision.net.il
39,926 questions
51,859 answers
573 users
Imports System.Text Module Module1 Sub Main() Dim array() As Byte = Encoding.ASCII.GetBytes("vb.net") For Each code As Byte In array Console.WriteLine(code) Next End Sub End Module ' run: ' ' 118 ' 98 ' 46 ' 110 ' 101 ' 116