Imports System

Public Module Module1

    Public Sub Main()

        Dim year as integer

        Dim name as integer

        Console.Writeline("What's your name?: ")

        Console.WriteLine("What year are you in? (7-12): ")

        name = Console.ReadLine()

        year = Console.ReadLine()

        Select case year

        Case 7,8 

            Console.WriteLine("Your school fees are $120")

        Case 9

            Console.WriteLine("Your school fees are $140")

        Case 10

            Console.WriteLine("Your school fees are $150")

        Case 11

            Console.WriteLine("Your school fees are $180")

        Case 12

            Console.WriteLine("Your school fees are $200")

            Console.WriteLine("{name}, your fees are {year}")

        End select      

    End Sub

End Module