¿En qué fila estoy?

Hola Elsa. Espero pases una Feliz Navidad y Prospero año.

Mira una pregunta, tengo estas sentencias

Private Sub CommandButton1_Click()
On Error GoTo noencontro
Sheets("historico1").Select
Set busco = ActiveSheet.Range("I:I").Find(TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not busco Is Nothing Then
TextBox2 = busco.Offset(0, -8)
TextBox3 = busco.Offset(0, -7)
TextBox4 = busco.Offset(0, -4)
TextBox5 = busco.Offset(0, -3)
TextBox6 = busco.Offset(0, -2)
TextBox7 = busco.Offset(0, -1)
Else
noencontro:
MsgBox "No encontró el dato"
End If
End Sub

La pregunta es como se en que fila estoy?

Te lo agradezco ,,besos