Visual Basic - Ayuda no consulta formulario

Buenas tardes, bien pues mi problema es el siguiente:

tengo un miniproyecto el cual guarda datos correctamente, el problema es al consultar. Unicamente consulta el primer registro pero si le pongo algun otro ya no lo consulta y se traba aunque ya lo tenga guardado,,, por favor ayudenme!!! ya he checado varias veces pero no queda... Les dejo el codigo para que lo puedan checar:

Option Explicit
Private Type alumno
nombre As String * 30
credencial As String * 4
direccion As String * 50
edad As String * 3
nacimiento As String * 10
telefono As String * 13
sexo As String * 9
End Type
Private datos As alumno
Private tama As Long
Private fichero As String
Private numfic As Byte
Private nombus As String * 30
Private numcad As String
Private numreg As String
Private encontrado As Boolean
Private Sub cmdbuscar_Click()
nombus = InputBox("Nombre a buscar: ", "Buscar datos", "")
fichero = "C:\datos\datos.dat"
numfic = FreeFile
tama = Len(datos)
Open fichero For Random As numfic Len = tama
numreg = 1: encontrado = False
Do
Get numfic, numreg, datos
If nombus = datos.nombre Then
encontrado = True
With datos
txtnom.Text = .nombre
txtdir.Text = .direccion
txtedad.Text = .edad
txtfecnac.Text = .nacimiento
txttel.Text = .telefono
txtsexo.Text = .sexo
txtcred.Text = .credencial
End With
numreg = numreg + 1
End If
Loop Until EOF(numfic)
End Sub
Private Sub mnusalir_Click()
Unload Me
End Sub