Imports System

Public Module Module1

    Public Sub Main()

        Dim numGrade As Integer

        DIm lettergrade As Char

        Dim result as Char

        console.Writeline("Please enter numerical grade")

        numgrade = Console.ReadLine()

        If numgrade >= 90 And numGrade <= 100 Then

            letterGrade = "A"

        Elseif numGrade >= 80 And numGrade <= 89 Then

            lettergrade = "B"

        Elseif numgrade >= 70 And numGrade <= 79 Then

            lettergrade = "C"

        Elseif numGrade >= 60 and numgrade <= 69 Then

            letterGrade = "D"

        Elseif numGrade > 0 And numGrade <= 59

            letterGrade = "F"

        End If

        Console.writeline("please enter" "letter grade & grade"")

    End Sub

End Module