Problema con Consulta y modificacion

Buen dia, disculpen la molestia estoy creando una macro de excel que sirve como base de datos, tiene un useform donde crea los datos cargados y les va colocando un codigo a ese kit Cargado, lo que necesito es crear otro useform parecido al primero pero que consulte y modifique, buscando con el codigo generado del useform1. No se como hacer que cuando lo busque guarde la fila(ROW) para poder modificar la informacion y menos que cuando la modifique y vuelva a buscar, el row sea 3 de nuevo. Muchas gracias en lo que me puedan ayudar :), yo puse el ROW en una label pero no sirvio.
Adjunto el codigo que hize no se dodne estan los errores
Private Sub CommandButton1_Click()
Label7 = "3"
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
ActiveCell.Offset(0, 1).Select
TextBox7 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox8 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox9 = ActiveCell
Label7 = ActiveCell.Row
noencontro:
Rem me permite que en la opcion de busqueda no se me mueva la celda seleccionada para que cuando busque no se corra a la derecha desde la selecionada
Range("b3").Select
End Sub
Private Sub CommandButton2_Click()
Label7 = "3"
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
OptionButton1 = Empty
OptionButton2 = Empty
TextBox1.SetFocus
Rem me permite que en la opcion de busqueda no se me mueva la celda seleccionada para que cuando busque no se corra a la derecha desde la selecionada
Range("b3").Select
End Sub
Private Sub OptionButton1_Click()
ActiveCell.FormulaR1C1 = OptionButton1
Range("I" + Label7) = "Realizado"
End Sub
Private Sub OptionButton2_Click()
ActiveCell.FormulaR1C1 = OptionButton1
Range("I" + Label7) = "Fallo"
End Sub
Private Sub TextBox1_Change()
Range("b" + Label7).FormulaR1C1 = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
Range("c" + Label7).FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("D" + Label7).FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("E" + Label7).FormulaR1C1 = TextBox4
End Sub
Private Sub TextBox5_Change()
Range("F" + Label7).FormulaR1C1 = TextBox5
End Sub
Private Sub TextBox6_Change()
Range("G" + Label7).FormulaR1C1 = TextBox6
End Sub
Private Sub TextBox7_Change()
Range("H" + Label7).FormulaR1C1 = TextBox7
End Sub
Private Sub TextBox8_Change()
End Sub
Private Sub TextBox9_Change()
End Sub
Private Sub UserForm_Click()
Rem me permite que en la opcion de busqueda no se me mueva la celda seleccionada para que cuando busque no se corra a la derecha desde la selecionada
Range("b3").Select
End Sub
Gracias y disculpen de Nuevo