Найти строку по слову из файла и вывести часть этой строки - Visual Basic .NET

Using Reader As New Microsoft.VisualBasic.FileIO.TextFieldParser("c:\01.txt")
            Reader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
            Reader.Delimiters = {" "}
 
            Dim fields() As String
            While Not Reader.EndOfData
                fields = Reader.ReadFields()
                If fields(0) = "1235" Then
                    MsgBox(fields(1))
                End If
            End While
        End Using