Mine

        Do While Not myCSVReader.EndOfStream
            lineCount = lineCount + 1
            myFieldInput = Split(myCSVReader.ReadLine, ",")
            Do While x < myFieldInput.Length
                If myFieldInput(x) <> "" Then
                    relicGenerator(lineCount, x) = myFieldInput(x)
                End If
                x = x + 1
            Loop