Imports System

Public Module Module1

    Public Sub Main()

        dim edad as integer

        console.writeline("Ingrese edad")

        edad = console.ReadLine

        select case edad

        case 1 to 17

            console.writeline("Eres menor de edad")

        case >=18

            console.writeline("Eres mayor de edad")

        end select

        'console.read()

    End Sub

End Module