Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Enter your username")

        dim name as string

        name=console.ReadLine()

        select case name

        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