Imports System

​

Public Module Module1

    Public Sub Main()

    '1. Write a program that checks a username against a stored value. How the user enters the username should NOT be case sensitive.

    '2. Removes spaces of a password at the end

        dim userName as string

        dim userName1 as string

        dim spaces as boolean

        dim positionS as integer

        userName = "Password123"

        username = username.ToUpper()

        console.writeline("Enter user name")

        username1 = console.readline()

        username1 = username1.ToUpper()

        spaces = Contains.username1(" ")

        if spaces = true then

            positionS = position.username1(" ")

            username1 = username1(0, positionS)

        end if

        if username = username1 then

            console.writeline("Match")

        else

            console.writeline("Incorrect")

        end if

    End Sub

End Module