BUSCANDO INFORMACION DESDE UN FORMULARIO

Se puede buscar información con un Textbox programándolo de la siguiente forma:

Dibuje una Etiqueta, un Textbox y un Botón de Comando y agregue el siguiente Código:
Private Sub TextBox1_Change()
Range("a9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub CommandButton1_Click()
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
End Sub
Si te fijas incluí en la programación del Botón Buscar Ahora  que buscara lo que en el Textbox1 a la hora de Presionarse.