ASCII.vb

Module Module1
 
    Sub Main()
        For i = 0 To 255
            Select Case i
                Case 9
                    Console.Write("9 : \T")
                Case 10
                    Console.Write("10 : \N")
                Case 13
                    Console.Write("13 : \R")
                Case Else
                    Console.Write(i & " : " & Chr(i))
            End Select
            Console.Write(vbTab & vbTab)
        Next
        Console.Read()
    End Sub
 
End Module