Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine(" EJEMPLO CASE")

        CONSOLE.Writeline("1. Muestra mensaje de bienvenida")

        CONSOLE.Writeline("2. Muestra frase del dia")

        CONSOLE.Writeline("3. Muestra mensaje de despedida")

        DIM OPCION AS INTEGER

        OPCION = CONSOLE.Readline()

        'Estructura del Case

        SELECT OPCION

        CASE 1

            CONSOLE.Write("BIENVENIDA")

        CASE 2

            CONSOLE.Write("Sinceridad Sin Empatia es Violencia")

        Case 3

            CONSOLE.Write("Adios Camarada")

        CASE ELSE

            Console.Write("INGRESE UNA OPCION VALIDA")

        END SELECT

    End Sub

End Module