Imports System

imports microsoft.visualbasic

Public Module Module1

    Public Sub Main()

        Dim sChar as char

        dim nascii as integer

        sChar= console.ReadLine()

        nascii = Asc(schar)

        console.WriteLine(nAscii)

    End Sub

End Module