Imports System

Public Module Module1

    Public Sub Main()

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

        Dim loginAttempts as Integer

        domain = "@crossleyheath.org.uk"

        Do

            Console.WriteLine("enter your username: ")

            username = Console.ReadLine()

            Console.WriteLine("enter your password: ")

            password = Console.ReadLine()

            if login(username, password) = True then

                Console.WriteLine("Login successful.")

                Console.ReadLine()

            Else 

                Console.WriteLine("Login unsuccessful.")

                Console.ReadLine()

                loginAttempts += 1

                if loginAttempts = 3 Then

                    Console.WriteLine("You have reached the maximum number of login attempts.")

                    Console.ReadLine()

                End If

​

            End if 

        Loop until login(username, password) = True

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

        Console.WriteLine("Please enter your first name.")

        firstname = Console.ReadLine()

        Console.WriteLine("Please enter your surname.")

        surname = Console.ReadLine()

    End Sub

    Function login(ByRef user as string, ByRef pass as string) as boolean

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

                    login = True

                else 

                    Login = False

                End If

        End Function

End Module