Imports System

Public Module Module1

    Public Sub Main()

        'Pseudocode

        'Define variables

        'INPUT Grade

        'CASE of Grades

        'OUTPUT Grades

        'OUTPUT Message

        Dim grade As Char

        Console.WriteLine("Hi, what's your recent test grade?")

        grade = Console.ReadLine()

        Select grade 

        Case "A"

            Console.WriteLine("Excellent Work!")

        Case "B"

            Console.WriteLine("Good job!")

        Case "C"

            Console.WriteLine("Well done!")

        Case "D"

            Console.WriteLine("You passed, well done.")

        Case "F"

            Console.WriteLine("Better luck next time.")

            Case Else 

                Console.WriteLine("Invalid Grade.")

    End Select 

        Console.WriteLine("Your grade is {0}", grade)

        Console.ReadLine()

    End Sub

End Module