Imports System

Public Module Module1

    Public Sub Main()

        Dim username, password, firstname, surname, emailAddress, yearJoined as String

        Dim loginAttempts as integer 

        dim Domain as string = "crossleyheath.org.uk"

        Do

            console.WriteLine("Enter your username:")

            username = console.readline()

            Console.WriteLine("Enter your password:")

            if username = true and password = true then

                Console.WriteLine("Login Successful.")

            else 

                Console.Writeline("Login Unsuccessful.")

                loginAttempts = loginAttempts + 1

                if loginAttempts = 3 then

                    Console.Writeline("You've reached your maximum number of login attempts.")

                end if 

            end if           

        Loop until username = true and password = true 

        Console.Writeline("Welcome to the email generator for Crossley Heath.")

        Console.Writeline("Enter your first name.")

        firstname = Console.readline()

        console.writeline("Enter your second name.")

        surname = console.readline()

        console.writeline("Enter the year you joined Crossley Heath.")

        yearJoined = console.readline()

        emailAddress = firstname.substring(0, 2) + surname + yearJoined.substring(2, 2) + Domain

        console.writeline("Your email address is: " & emailAddress)

    End Sub

    Function Login(ByRef user as string, ByRef pass as string)

        If user = "test" and pass = "1234" then

        login = true

    else 

        login = false 

    end if 

    End function  

End Module