Obtener los Numeros de Fila en una busqueda.

Al grabar un MACRO al aplicar la funcion BUSCAR, le aplique un
USERFORM que contiene los
encabezados de una lista telefonica.
Al poner un texto o numero, en una celda (C3) y hacer click al boton
"BUSCAR", empieza la busqueda y me carga o muestra el USERFORM. Los
codigos de ese USERFORM, en cuanto a como poner los datos en el, ya lo
tengo arreglado, lo que me falta o necesito es obtener el Numero de la
fila o renglon donde esta posesionado el cursor o celda activa cuando
se esta realizando la busqueda, para obtener la informacion de la fila
y ser mostrada en la forma.
No deseo usar los AutoFiltros, por querer hacerlo mas personal.

El codigo usado y obtenido gravando la  busqueda en MACRO es
Sub BUSCA()
Cells.Find(What:=Sheets("TELEFONOS").Range("C3"), After:=ActiveCell,
LookIn:=xlFormulas,
LookAt _:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _False,
SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
Cells.FindNext

y luego la informacion para pasar los datos al USERFORM.

Envio el ejemplo practico por si se pasa algun detalle.
Descargar de este enlace:

http://www.box.net/shared/bqa6c2cx1f

Se que puedo aprender mas.

De antemano agradezco sus atenciones.
Corando.

Revisando el codigo anterior, funciona muy bien buscando textos
pero al buscar numeros no funciona bien, solo me da un resultado y se detiene la busqueda.
Causa, razon o motivo? ...