Imports System

'REALIZADO POR SOL FLORES       

Public Module Module1

    Public Sub Main()

        Console.WriteLine("MENÚ DE OPCIONES")

        CONSOLE.WriteLine("1. MENSAJE DE BIENVENIDA") 

        CONSOLE.WriteLine("2. FRASE DEL DÍA")

        CONSOLE.WriteLine("3. MESAJE DE DESPEDIDA")

        CONSOLE.WriteLine("INGRESE UNA OPCIÓN: ")

        DIM OPCIÓN AS INTEGER

        OPCIÓN = CONSOLE.ReadLine()

        'ESTRUCTURA CASE

        SELECT OPCIÓN 

        CASE 1

            CONSOLE.WriteLine("BIENVENID@")

        CASE 2 

            CONSOLE.WriteLine("Aunque sea díficil de creer, la felicidad puede entrar en el momento más inesperado y por la puerta que creíste haber cerrado hace mucho.")

        CASE 3

            console.WriteLine("HASTA MAÑANA...")

        CASE ELSE 

            CONSOLE.WriteLine("INGRESE UNA OPCIÓN VALIDA")

        END SELECT 

    End Sub

End Module