WILL LOOK HERE

Imports System.Console
Imports System.IO

Module Module1

    Sub Main()
        WriteLine("Menu")
        WriteLine()
        WriteLine("1. Import File")
        WriteLine("2. Add contents of file to array")
        WriteLine("3. Check string length")
        WriteLine("4. Check for invalid characters")
        WriteLine("5. Export File")
        WriteLine("6. Exit")

        Dim choice As String = ReadLine()

        If Not IsNumeric(choice) And choice < 7 And choice > 0 Then
            WriteLine("Please enter a numeric value")
            Threading.Thread.Sleep(1500)
            Main()
        End If
        Dim fileName As String = Nothing
        If choice = 1 Then
            fileName = ReadLine()

        ElseIf choice = 2 Then
            Dim fileContents As New List(Of String)
            For Each line In fileName
                fileContents.Add(line)
            Next
        ElseIf choice = 3 Then
            CheckLength()
        End If


    End Sub

    Sub CheckLength(fileContents As List(Of String))
        For Each line In fileContents

        Next
    End Sub

End Module