Imports System

Public Module Module1

    Public Sub Main()

        'Ejemplo Case

        'Mostrar opciones y solicitar opciones

        Console.WriteLine("Ingrese una opcion")

        'declaramos la variable opcion como entero 

        dim opcion as integer

        opcion=Console.ReadLine()

    select opcion

        Case 1

            Console.Writeline("procedimientos de la opcion 1")

        Case 2

            Console.Writeline("Procedimientos de la opcion 2")

        'Case else 

            'Console.Writeline("Ingrese opcion 1 o 2")

        End select  

    End Sub

End Module