Imports System

Public Module Module1

    Public Sub Main()

        Dim age As Integer 

​

        Console.writeline("Enter your age")

        age=console.readline()

        Select case age 

        case Is >=150 

            Console.WriteLine("You cannot drive as you are dead")

        Case Is >=22 

            Console.Writeline("You may drive a bus, car or moped")

        Case Is >16

            Console.Writeline("You may drive a car or moped")

        Case =16

            Console.Writeline("You may drive a moped")

        Case else

            Console.Writeline("You are too young to drive")

        End Select

    End Sub

End Module