Ahora a programar el botón consulta

Private Sub CommandButton2_Click()

Rem se translada a la celda a8

Range("a8").Select

Rem abre un archivo en la unidad c con el nombre de datos.txt

Rem en forma de Leer (input) en el área de almacenamiento #1

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

Rem esto significa hazlo mientras no sea fin del archivo

Rem esto quiere decir que no deje de leer los datos

Rem hasta que no se llegue al ultimo de ellos

    Do While Not EOF(1)

        Rem lee un dato

        Input #1, nombre

        Rem lo escribe en la celda

        ActiveCell.FormulaR1C1 = nombre

        Rem baja un renglón para el siguiente nombre

        ActiveCell.Offset(1, 0).Select

     Rem activa el ciclo Do While-que regrese hasta

     Rem que se cumpla la condición

     Loop

Rem cierra el archivo

Close #1

End Sub

Que te parece archivar los datos aparte sin que nadie pueda observarlos, esta es la magia de los archivos secuénciales. Este ejemplo viene indexado en un archivo con el nombre de Macros VI.

El siguiente código archiva el nombre, la dirección y el teléfono en el archivo, crea un formulario igual con dos botones.

Private Sub CommandButton1_Click()

Rem se traslada a la celda a8

Range("a8").Select

Rem si no hay ningún dato en a8 que no archive de nuevo

If ActiveCell = Empty Then GoTo salte

Rem abre un archivo en la unidad c con el nombre de datos.txt

Rem en forma de añadir Temporal(output) en el área de almacenamiento #1

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

Rem activa una etiqueta para poder regresar

regresa:

Rem captura el nombre en una variable

nombre = ActiveCell

Rem borra el dato de la celda

ActiveCell = Empty

Rem se mueve una columna a la derecha

ActiveCell.Offset(0, 1).Select

Rem captura la direccion en una variable

direccion = ActiveCell

Rem borra el dato de la celda

ActiveCell = Empty

Rem se mueve una columna a la derecha

ActiveCell.Offset(0, 1).Select

Rem captura el telefono en una variable

telefono = ActiveCell

Rem borra el dato de la celda

ActiveCell = Empty

Rem escribe los datos nombre, direccion y telefono en el archivo

Write #1, nombre, direccion, telefono

Rem baja un renglón para el siguiente nombre

ActiveCell.Offset(1, 0).Select

Rem retrocede dos columnas

ActiveCell.Offset(0, -2).Select

Rem si la celda esta vacía que no regrese ya

If ActiveCell = Empty Then GoTo salte

Rem regresa a escribir el siguiente nombre en el archivo

GoTo regresa:

salte:

Rem se acabo

Rem cierra el archivo

Close #1

End Sub

Private Sub CommandButton2_Click()

Rem se translada a la celda a8

Range("a8").Select

Rem abre un archivo en la unidad c con el nombre de datos.txt

Rem en forma de Leer (input) en el área de almacenamiento #1

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

Rem esto significa hazlo mientras no sea fin del archivo

Rem esto quiere decir que no deje de leer los datos

Rem hasta que no se llegue al ultimo de ellos

    Do While Not EOF(1)

        Rem lee los datos

        Input #1, nombre, direccion, telefono

        Rem escribe en la celda el nombre

        ActiveCell.FormulaR1C1 = nombre

        Rem se mueve una columna a la derecha

        ActiveCell.Offset(0, 1).Select

        Rem escribe en la celda la direccion

        ActiveCell.FormulaR1C1 = direccion

        Rem se mueve una columna a la derecha

        ActiveCell.Offset(0, 1).Select

        Rem escribe en la celda el telefono

        ActiveCell.FormulaR1C1 = telefono

        Rem baja un renglón para el siguiente nombre

        ActiveCell.Offset(1, 0).Select

        Rem retrocede dos columnas

        ActiveCell.Offset(0, -2).Select

     Rem activa el ciclo Do While-que regrese hasta

     Rem que se cumpla la condición

     Loop

Rem cierra el archivo

Close #1

End Sub