Module Module1
Sub Main()
Dim code As Integer
code = AscW("B")
Console.WriteLine(code)
code = AscW("b")
Console.WriteLine(code)
code = AscW("vb.net") ' corresponding to the first letter
Console.WriteLine(code)
End Sub
End Module
' run:
'
' 66
' 98
' 118