'Ben Mizrahi

'2/22/21

'Password Generator 

Imports System

Public Module Module1

    'Imput Data 

    Sub ImputData (byref a as string, byref b as string)

        Console.WriteLine("Insert a number and a word.")

        a = Console.ReadLine()

        b = console.ReadLine()

    End Sub 

    'Concatenation Function 

    Function Password (Byval num as string, Byval word as string) 

        dim pw as string = num & word

        If pw.Length > 6 then 

            Return pw 

        Else 

            Return "insecure"

        End If 

    End Function

    'Return Data 

    Sub ReturnData (byval return1 as string, byval return2 as string)

        Console.WriteLine("Your password is " & Password(return1, return2))

    End Sub 

​

    'Main Sub

    Public Sub Main()

        dim num, word as string 

        ImputData(num, word)

        Password(num, word)

        ReturnData(num, word)

    End Sub

End Module