The Weird and The Wonderful

''' <summary>
''' Parses the Input txt File by Rows and returns a array of string of input rows
''' </summary>
''' <param name="filelocation">System Path of the File </param>
''' <returns></returns>
Private Function ParseTheFileByLine(ByVal filelocation As String) As String()
  ' This is my code; the XMLdoc comments and method signature are unchanged,
  ' except that I fixed capitalization.
  Try
    Using sr As New StreamReader(filelocation)
      Dim ares As New List(Of String)
      Do Until sr.EndOfStream
        ares.Add(sr.ReadLine())
      Loop
      Return ares.ToArray()
    End Using
  Catch ex As IOException
    Dim hh As New System.Collections.ArrayList(1)
    hh.Add("Invalid Input File " & ex.Message)
    ' CompanyNameBrandedCustomValidationException is not, of course, the real
    ' name of the exception in question because, as the name implies, it
    ' contains the company's real name.
    ' And yes, its constructor does require an ArrayList. No, I don't quite
    ' know why. Chalk another one up to general incompetence or just garden-
    ' variety peculiarity.
    Throw New CompanyNameBrandedCustomValidationException(hh)
  End Try

  ' Here is the original miserable code, commented out (the way I left it
  ' there for possible "future use"...).
  '  Dim fs As FileStream = Nothing
  '  Dim fs1 As FileStream = Nothing
  '  Dim sr As StreamReader = Nothing
  '  Dim sr1 As StreamReader = Nothing
  '  Try
  '    fs = File.OpenRead(filelocation)
  '    fs1 = File.OpenRead(filelocation)
  '    sr = New StreamReader(fs)
  '    sr1 = New StreamReader(fs1)
  '  Catch Ex As Exception
  '    Dim hh As New System.Collections.ArrayList(1)
  '    hh.Add("Invalid Input File " & Ex.Message)
  '    Throw New CompanyNameBrandedCustomValidationException(hh)
  '  End Try
  '  Dim input_Array_Lines() As String = Nothing
  '  Dim input_line As String = ""
  '  Dim num_of_Lines As Integer = 0
  '  Try
  '    Do While sr1.Peek() > -1
  '      input_line = sr1.ReadLine()
  '      num_of_Lines += 1
  '    Loop

  '  Catch a As Exception
  '    Dim hh As New System.Collections.ArrayList()
  '    hh.Add("Invalid Input File " & a.Message)
  '    Throw New CompanyNameBrandedCustomValidationException(hh)
  '  End Try
  '  If num_of_Lines > 0 Then
  '    input_Array_Lines = New String(num_of_Lines - 1) {}
  '  End If
  '  num_of_Lines = 0
  '  Try
  '    Do While sr.Peek() > -1
  '      input_line = sr.ReadLine()
  '      input_Array_Lines(num_of_Lines) = input_line
  '      num_of_Lines += 1
  '    Loop
  '    Return input_Array_Lines

  '  Catch a As Exception
  '    Dim hh As New System.Collections.ArrayList()
  '    hh.Add("Invalid Input File " & a.Message)
  '    Throw New CompanyNameBrandedCustomValidationException(hh)
  '  End Try
End Function