Obtendo o código ASCII ou Unicode para um determinado caractere

'Este trecho de código mostra como obter o código ASCII ou
'Unicode para um determinado caractere.

'A função Asc pode ser usada para códigos que variam de
'0 a 255. Para valores acima disso devemos usar a função
'AscW (própria para caracteres Unicode)

Module Module1
  Sub Main()
    Dim cod As Integer = Asc("a") 'retornará o código 97
    Console.WriteLine("O código ASCII do caractere é " & cod)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module