Dim sR As New System.IO.StreamReader("C:\test.txt")
Dim line As String, temp As String = ""
While Not sR.EndOfStream
    line = sR.ReadLine()
    If line.StartsWith("TEXT") Then
        temp = line
    End If
End While
sR.Close()
MessageBox.Show(temp)

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.