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 >=1000

            console.WriteLine("You have opportunity to ride flying saucer on a rollercoaster in side of da moon while drinking vodka!")

        case is >=22

            console.WriteLine("Permission granted of any licensed vehicle to drive")

        case is >=16

            console.WriteLine("You may drive a mobility scooter or a car.")

        case is = 16

            console.WriteLine("Only moped for u my friend!!!")

        case is <16

            console.WriteLine("U drive vehicle, i send you to prison haha....")

    End Sub

End Module