Imports System

Public Module Module1

    Public Sub Main()

        dim numGrade As Integer         'Step 1 Declare variables'

        dim letterGrade As Char

        Console.WriteLine("Please Enter Your Numerical Grade: ")        'Step 2 User Input'

        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 >= 50 And numGrade <= 59 Then

            letterGrade = "F"

        End If

            Console.WriteLine("Your letter grade is: " & letterGrade)

    End Sub

End Module