Visual Basic - Ayuda en una busqueda en ficheo comando EOF

Hola estoy haciendo un ejercicio en el que trabajamos con ficheros los creamos insertamos datos y luego nos piden que busquemos un dato para ver si esta dentro del mismo lo he consguido hacer de este modo y funciona ok

ESTRUCTURA :

Public Class Form1
Dim fichero1 As FileStream
Dim fichero2 As FileStream
Dim es As StreamWriter
Dim lee As StreamReader
Dim linea As String

Evento buscar:

Private Sub BBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BBuscar.Click
fichero1 = File.OpenRead("fichero1.txt")
lee = New StreamReader("fichero1.txt")
Do
linea = lee.ReadLine()
If linea = TBBuscar.Text Then
MessageBox.Show("Encontrado")
MessageBox.Show(linea)
End If
Loop Until linea Is Nothing
lee.Close()
End Sub

Pero me han comentado que se puede hacer tambien con el comando EOF pero por mas que busco no encuentro como hacerlo, elprograma ya funciona pero me gustaria saber como es la otra forma para estudiarla y poderla aplicar a futuros programas si veo que es mas sencilla.

Si alguien me puede ayudar se lo agradeceria

Un saludo