Imports System

Public Module Module1

    Public Sub Main()

        Dim username As String

        Console.WriteLine("Enter your username please")

        username = Console.ReadLine()

        select case username

        case "Admin"

            Console.WriteLine("Welcome Admin")

        case "User"

            Console.WriteLine("Welcome user")

        case else

            Console.WriteLine("You are not allowed to login")

        End Select

    End Sub

End Module