Dim line As String
        Do
            line = sr.ReadLine()
            If Not IsNothing(line) Then
                TextBox1.Text += line
                TextBox2.Text += Trim(Mid(line, 1, InStr(1, line, ":") - 1)) + _
                  vbTab
            End If
        Loop Until line Is Nothing

Gruss mm78pr

http://msdn.microsoft.com/de-de/default.aspx