Consultar y modificar con textbox

Necesito consultar y luego modificar valores de una tabla. Lo siguiente explica lo que tengo
Los valores de las celdas los capturo en varios TextBox (en total son 11), pero con la instrucción que tengo solo me toma los 4 primeros valores, se para la búsqueda en la columna E, donde tengo guardado un dato de fecha.
Acá dejo la instrucción
Dim a, b
a = TextBox1
b = TextBox2
For x = 14 To 200
With Hoja3
If a = .Range("A" & x) Then
TextBox1 = .Range("A" & x).FormulaR1C1
TextBox2 = .Range("B" & x).FormulaR1C1
TextBox3 = .Range("C" & x).FormulaR1C1
TextBox4 = .Range("D" & x).FormulaR1C1
TextBox5 = .Range("E" & x).FormulaR1C1
TextBox6 = .Range("F" & x).FormulaR1C1
TextBox7 = .Range("G" & x).FormulaR1C1
TextBox8 = .Range("H" & x).FormulaR1C1
TextBox9 = .Range("I" & x).FormulaR1C1
TextBox10 = .Range("J" & x).FormulaR1C1
TextBox11 = .Range("K" & x).FormulaR1C1
TextBox12 = .Range("L" & x).FormulaR1C1
TextBox13 = .Range("M" & x).FormulaR1C1
TextBox14 = .Range("N" & x).FormulaR1C1
'ActiveCell.PivotTable.DataLabelRange.Select
End If
End With
Next x