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