Module Module1
Public Sub Main()
Dim age As Integer
Console.WriteLine("Enter age")
age = Console.ReadLine
If age >= 22 Then
Console.WriteLine("you may drive a bus, car or moped")
ElseIf age > 16 Then
Console.WriteLine("you may drive a car or moped")
ElseIf age = 16 Then
Console.WriteLine("you may only drive a moped")
ElseIf age < 16 Then
Console.WriteLine("you are too young to drive")
End If
Console.ReadLine()
End Sub
End Module
