Odczyt wybranych linijek z pliku tekstowego

Mam plik:

*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?

        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()

Może powinno być: Do While xRead.EndOfStream = False