Module Module1
Sub Main()
Dim code As Integer
code = Asc("A")
Console.WriteLine(code)
code = Asc("a")
Console.WriteLine(code)
code = Asc("vb.net") ' corresponding to the first letter
Console.WriteLine(code)
End Sub
End Module
' run:
'
' 65
' 97
' 118