Imports System

Public Module Calculator

    Dim banned_password() As String = {"123456", "password", "qwerty", "111111", "123456789"}

    Dim username As String

    Dim password As String

    Dim isPasswordInValid As Boolean

    Public Sub Main()

        Console.WriteLine("Hello and Welcome to your account registration")

        Console.WriteLine("")

        displayArray(banned_password)

        Console.WriteLine("")

        Console.WriteLine("Enter username")

        username = Console.ReadLine()

        Console.WriteLine("Enter password")

        password = Console.ReadLine()

        isPasswordInValid = True

        While isPasswordInValid

            Console.WriteLine("")   

            For i = 0 To 4

                If password = banned_password(i) Then

                    Console.WriteLine("You have entered a banned password, try another one")

                    password = Console.ReadLine()

                    isPasswordInValid = True

                Else

                    isPasswordInValid = False

                End If      

            Next i  

        End While

        Console.WriteLine("")

        Console.WriteLine("you are registered")

    End Sub

​

    Public Sub displayArray(Arr() As String)        

        Console.WriteLine("Here is a list of passwords that are not allowed")   

      For i = 0 To 4          

          Console.WriteLine(Arr(i))

      Next i        

    End Sub

End Module