Imports System

Public Module Module1

    Public Sub Main()

        'Ejemplo ciclo while

        dim respuesta as integer

        respuesta = 1

        While (respuesta = 1)

            dim opcion as integer

            Console.Writeline("Ingrese una opcion")

            opcion=Console.Readline()

            select (opcion)

            Case 1

                'Instrucciones necesarias para realizar la opcion 1

                Console.Writeline("Selecciono la opcion 1")

                'Verificar si desea continuar en el programa

                Console.Writeline("Desea continuar 1. si, 2. no")

                respuesta= Console.Readline()

            Case else 

                Console.Writeline("Selecciono la opcion 2")

                'Verificar si desea continuar en el programa

                Console.Writeline("Desea continuar 1. si, 2. no")

                respuesta= Console.Readline()

            end select 

        end while

    End Sub

End Module