Dim Stream As New IO.StreamReader("D:\SW\infile.txt", _
  System.Text.Encoding.Default)
        Dim line As String
        Do
            line = Stream.ReadLine()
            If Not IsNothing(line) Then
                TextBox1.Text += Trim(Mid(line, 1, InStr(1, line, ":") - 0)) + _
                  vbTab + vbTab
            End If
        Loop Until line Is Nothing