Leer un fichero línea a línea

Imports System.IO
 
    Public Shared Function ReadByLine(ByVal path As String) As ArrayList
        Dim miLector As StreamReader
        Dim misLineas As New ArrayList
 
        Try
            'path es la ruta completa al fichero a leer 
            miLector = New StreamReader(path)
            With miLector
                ' posicionamos el flujo al inicio del fichero 
                .BaseStream.Seek(0, SeekOrigin.Begin)
                While (.Peek > 0)
                    ' leemos una línea del fichero 
                    misLineas.Add(.ReadLine)
                End While
            End With
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            ' cerramos lector
            miLector.Close()
        End Try
        Return misLineas
    End Function