También se puede consultar sin necesidad de leer los datos en la hoja, esto quiere decir leyendo directo del archivo y trayendo los datos al formulario, en el siguiente ejemplo, se programa el botón consulta en formulario.

Dibuja el siguiente formulario, los dos primeros botones es el mismo código anterior, pero el tercer botón incluye el siguiente código:

Private Sub CommandButton3_Click()

Open "c:\datos.txt" For Input As 1

    Do While Not EOF(1)

        Input #1, nombre, direccion, telefono

            If nombre = TextBox1 Then

                TextBox2 = direccion

                TextBox3 = telefono

            End If

    Loop

Close #1

End Sub

Solo corra el formulario y escriba el nombre que desea consultar y presione el tercer botón.

Usted podrá consultar cualquiera de los nombres que se encuentren dentro del archivo, sin necesidad de que existan en la hoja, claro esta que primero es necesario presionar el botón registro para archivarlos, pero después se pueden manipular.

Bueno espero que sea de su agrado esta parte y que practiquen mucho los archivos secuenciales.