Odczyt wybranych linijek z pliku tekstowego

2018-05-05T15:23:59+02:00

Rejestracja: dni
Ostatnio: dni

Mam plik:

Kopiuj

*aaaa
*xxxx
*cccc
*ddd
78dsadasd
*sss

Chce zeby ponizszy kod zwracal mi linijki z poczatkiem 78, obecnie nie zwraca nic. Mógły ktos mi wskazać błąd?

Kopiuj

        Dim xRead As System.IO.StreamReader
        xRead = File.OpenText(Application.StartupPath & "\last_modify.txt")

        Do While xRead.EndOfStream = True
            If xRead.ReadLine.StartsWith("78") Then
                LabelLastModify.Text = LabelLastModify.Text & xRead.ReadLine & vbNewLine
            End If
        Loop
        xRead.Close()