Foro Excel

Hola he creado un formulario con text box y con un boton de comando, pero solo me busca en un solo texbox para ser espesifico en el 1er texbox1, y me gustaria que me buscara en todos, el codigo de busqueda es el sig.

Private Sub Busqueda_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
Label4 = ActiveCell.Row
noencontro:
End Sub
Y solo me hace una busqueda y desearia que me lo aria en todos

Y otra cosa como llamo un user form
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:09"), "hola"

End Sub

llamar otro con esta instruccion.

Gracias de antemano y perdon por las molestias
Con 36 Registros

creo que no corresponde aqui sino en macros