Ayuda con macros

[agpucci]

Hola como andas, necesito por favor que me ayuden en una casita, estoy creando un formulario donde se pueda insertar, borrar, y consultar.
ejemplo quiero insertar de cada uno el NOMPRE APELLIDO DIRECCION,ETC (esto lo puedo ahcer lo de insertar y borrar) pero lo que no puedo hacer es que po ejemplo quiere buscar el apellido de alguno de los que ingrese y ve valla hacia halla o que pueda consultar desde la direccion no solo buscando el apellido sino q tambien pueda buscarlo como otra cosa.
yo tengo esto puesto


Private Sub CommandButton1_Click()

On Error GoTo noencontro

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox5 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox6 = ActiveCell

noencontro:

End Sub

si me pueden ayudar
Gracias