'Collection erstellen:
Dim fs As FileStream = File.OpenRead("Datei")
Dim reader As New StreamReader(fs)
 
Dim liste As New StringCollection()
While reader.Peek > -1
   liste.Add(reader.ReadLine())
End While
 
 
'Zeilen Auslesen:
Dim ersteZeile As String = liste.Item(0)
Dim letzteZeile As String = liste.Item(liste.Count - 1)