Imports System
Imports System.IO
 
        Dim Lesen As New StreamReader("C:\TestDatei.txt")
        Dim Zeile() As String
        Dim TextInhalt As String = Lesen.ReadToEnd
        Dim I As Integer
 
        Zeile = TextInhalt.Split(ControlChars.NewLine)
 
        For I = 0 To Zeile.Length - 1
            Debug.Print(Zeile(I))
        Next