Imports System

Public Module Module1

    dim nombre as string

        Public Sub Main()

            Console.WriteLine("Ingrese un nombre del curso.")

            nombre=Console.ReadLine()

            select case (nombre)

        case "Marcos"

            Console.WriteLine("Bienvenido/a "&nombre)

        case "Fiorella"

            Console.WriteLine("Bienvenido/a "&nombre)

        case "Lautaro"

            Console.WriteLine("Bienvenido/a "&nombre)

        case "Vicente"

            Console.WriteLine("Bienvenido/a "&nombre)

        case else

            Console.WriteLine("El nombre ingresado no pertenece al curso.")

        end select

    End Sub

End Module