Imports System
Public Module Module1
Public Sub Main()
Dim age As Integer
Console.WriteLine("enter your age")
age = console.readline
if age >= 17 Then
Console.writeline("you may own a car if you have a licience")
ElseIf age >= 18 Then
Console.writeline("you may own a car or a house")
ElseIf age >= 21 Then
Console.writeline("you may buy achole")
end if
End Sub
End Module