Una Agenda en Formulario de vb

Hola, buenas
Te molesto otra vez... La ultima vez me ayudaste muchísimo, y ahora tengo otra duda con respecto a lo siguiente:
1º Necesito hacer una especie de agenda con los siguientes datos: RUT-NOMBRE-DIRECCIÓN-TELÉFONO-CELULAR-MAIL-CLAVE1-CLAVE2- CLAVE3, ETC. (con opción de agregar más datos)
2º Tener la Capacidad para Ingresar los Datos en el Formulario y Guardarlos
3º Una vez Guardados poder buscarlos, consultarlos y Modificarlos.
4º poder ingresar al formulario de manera directa.
He estado probando muchas fórmulas y leyendo manuales, pero no logro hacer que todas me funcionen, me puedes indicar como, o bien un manual especializado.
De antemano muchas gracias, espero que nuevamente me puedas ayudar.
Saludos Lorena Ana
PD. Te dejo el código de mi ultimo intento que interprete de unos de los manuales que he leído:
Private Sub CommandButton1_Click()
Rem se translada 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 CLIENTES" For Output As 1
Rem activa una etiqueta para poder regresar
regresa:
Rem escribe el dato de la celda activa en el archivo
Write #1, ActiveCell
Rem borra el dato de la celda
ActiveCell = Empty
Rem baja un renglón para el siguiente nombre
ActiveCell.Offset(1, 0).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 CLIENTES" 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, RUT
Rem lo escribe en la celda
ActiveCell.FormulaR1C1 = RUT
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
Private Sub CommandButton3_Click()
Open "c:\DATOS CLIENTES" For Input As 1
Do While Not EOF(1)
Input #1, RUT, NOMBRE, TELEFONO, MAIL, CLAVE1, CLAVE2, CLAVE3
If RUT = TextBox1 Then
TextBox2 = NOMBRE
TextBox3 = TELEFONO
TextBox4 = MAIL
TextBox5 = CLAVE1
TextBox6 = CLAVE2
TextBox7 = CLAVE3
End If
Loop
Close #1
End Sub