Hacer una función LeeFicheroCadenas a la que se le pasa un nombre de fichero y te devuelve el contenido del fichero en una lista de strings.
Imports System.IO
Module Module1
Sub Main()
Console.Write("Dame ruta y nombre de fichero: "
Dim n As String = Console.ReadLine
Dim l As List(Of String)
l = LeeFicheroCadenas(n)
End Sub
Function LeeFicheroCadenas(ByVal f As String) As List(Of String)
Dim sr As StreamReader
sr = New StreamReader(f)
Dim lista As New List(Of String)
While Not sr.EndOfStream
lista.Add(sr.ReadLine)
End While
sr.Close()
Return lista
End Function
End Module
