Imports System

Imports microsoft.visualbasic

Public Module Module1

        Public Sub Main()

        Dim n1 as integer

        n1 = console.ReadLine()

        IF n1 < 65 then

            Console.WriteLine("type a number between 65 and 90")

        End If

        If n1 > 90 then

            Console.WriteLine("type a number between 65 and 90")

        End IF

        Dim n2 as string = asc(n1)

        console.WriteLine(n2)

    End Sub

End Module