Imports System

Public Module Module1

    Public Sub Main()

        'EJEMPLO CASE

        'MOSTRAR OPCIONES Y SOLICITAR OPCIONEs

        Console.WriteLine("Ingrese una opción")

        'declaramos la variable opcion cono entero

        dim opcion as integer

        opcion = console.ReadLine()

        select opcion 

        Case 1 

            Console.WriteLine("procedimiento de la opcion 1")

        Case 2 

            Console.WriteLine("procedimiento de la opcion 2")

        Case else

            Console.WriteLine("la opcion es 1 o 2")

        end select

    End Sub

End Module