Imports System

Public Module Module1

    Public Sub Main()

        Dim Operation as string

        Console.Writeline("What mark range do you want?")

        Console.WriteLine("- Achieved")

        Console.Writeline("- Merit")

        Console.Writeline("- Excellent")

        Operation = Console.Readline()

        Select Case Operation.ToLower()

        Case "achieved"

            Console.Writeline("50-60")

        Case "merit"

            Console.Writeline("61-80")

        Case "excellent"

            Console.Writeline("81-100")

        End select

    End Sub

End Module