Option Explicit On
Imports System.IO


Module Module1
    Dim userc, passc, passcc As Boolean
    Dim user, pass, age As String

    Sub Main()
        Dim choice As Integer



        Do While choice <> 5
            menu()
            choice = Console.ReadLine()
            If choice = 1 Then
                createUser()



            ElseIf choice = 2 Then
                loginUser()



            ElseIf choice = 3 Then
                deleteUser()


            ElseIf choice = 4 Then
                forgotUser()

            End If
        Loop

    End Sub

    Sub menu()
        Console.WriteLine()
        Console.WriteLine("1. Create a user")
        Console.WriteLine("2. Login")
        Console.WriteLine("3. Delete")
        Console.WriteLine("4. Forgot password")
        Console.WriteLine("5. Quit")
        Console.WriteLine("")
        Console.WriteLine("Enter your choice (1,2,3,4,5)")

    End Sub

    Sub createUser()
        Dim errorFound As Boolean
        errorFound = True

        Do While Len(user) < 6 Or Len(user) > 24
            Console.WriteLine("Enter your desired username")
            user = Console.ReadLine
            If Len(user) > 6 And Len(user) < 24 Then
                Console.WriteLine("Username accepted")
            Else
                Console.WriteLine("Invalid")
            End If
        Loop

        Do While Len(pass) < 6 Or Len(pass) > 24
            Console.WriteLine("Enter your desired password")
            pass = Console.ReadLine
            If Len(user) > 6 And Len(user) < 24 Then
                Console.WriteLine("Password accepted")
            Else
                Console.WriteLine("Invalid")
            End If
        Loop

        Do While errorFound = True
            errorFound = False
            Try
                Console.WriteLine("Enter your age")
                age = Console.ReadLine
            Catch
                Console.WriteLine("Enter your age")
            End Try
        Loop

        createEverything()

    End Sub

    Sub loginUser()

    End Sub

    Sub deleteUser()

    End Sub

    Sub forgotUser()

    End Sub

    Sub createEverything()
        Dim path As String
        Dim CurrentStream As StreamWriter
        path = "N:/data/useraccounts.txt"
        CurrentStream = New StreamWriter(path)
        CurrentStream.WriteLine(user & " " & pass & " " & age)
        CurrentStream.Close()
    End Sub

End Module