Imports System

Public Module Module1

    Public Sub Main()

        Dim score As Integer

        Console.WriteLine("Please enter a score between 1 and 5 for your test")

        score = Console.ReadLine()

        Select Case score

            Case "1"

            Console.WriteLine("Sorry but that is the lowest mark")

            Case "2"

            Console.WriteLine("Hmm..you've failed the test")

            Case "3" And "4"

            Console.WriteLine("Nice you've passed")

            Case "5"

            Console.WriteLine(" Wow you got full mark")

            Case Else

            Console.WriteLine("You didn't choose a number between 0 and 6')

            Console.WriteLine(" You can choose 1,2,3,4 or 5")

        End Select

    End Sub

End Module