Visual Basic.net Textdatei lesen

Try
            'Datei öffnen
            Dim fs As FileStream = New FileStream(DATEINAME, FileMode.OpenOrCreate, FileAccess.ReadWrite)
            'Stream öffnen
            Dim r As StreamReader = New StreamReader(fs)
            'Zeiger auf den Anfang
            r.BaseStream.Seek(0, SeekOrigin.Begin)
            'Alle Zeilen lesen und an Console ausgeben
            While r.Peek() > -1
                MessageBox.Show((r.ReadLine()))
            End While
            'Reader und Stream schließen
            r.Close()
            fs.Close()
        Catch ex As Exception
            MessageBox.Show(ex.toString) 'Fehlermeldung ausgeben
        End Try

http://www.it-visions.de/lserver/CodeSampleDetails.aspx?c=2801