Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

        Dim username as string

        Dim username1 as string

        Dim password as string 

        Console.WriteLine("Enter Username")

        username = Console.ReadLine()

        username = LCase(username)

        Console.WriteLine("Enter Username again")

        username1 = Console.ReadLine()

        username1 = LCase(username1)

        If username = username1

            Console.WriteLine("Your username is valid")

        Else 

            Console.WriteLine("Your username is invalid")

        End If

        Console.WriteLine("Enter password(should start with a capital letter)")

        password=Console.ReadLine()

        Rtrim(password)

        If char.isUpper(password,0) = True

            Console.WriteLine("Welcome")

        Else 

            Console.WriteLine("Error")

        End if

    End Sub

End Module