Imports System

Public Module Module1

    Public Sub Main()

        Dim score As Integer

        Console.WriteLine("Please enter your score")

        score = Console.ReadLine()

        If score>=100 and score<=180

            Console.WriteLine("What a great score! Well done.")

        Else If score>=0 and score<10

                Console.WriteLine("That was rubbish! Get Practising.")  

        End If

    End Sub

End Module