Dim TS As New System.IO.StreamReader("Test.txt")
Dim zähler As Integer = 0
Dim Lines() As String
Do
     ReDim Preserve Lines(zähler)
     Lines(zähler) = TS.ReadLine
     zähler += 1
Loop While Not TS.EndOfStream
TS.Close()