TextBox1.SetFocus - no me funciona

Hola!
Tengo un formulario "InventarioII" con un Textbox1 y un Textbox2.
La idea es ir pasando un lector de código de barra por los diferentes
productos en existencia física y que se remarquen en color amarillo los
mismos productos en el listado de inventario que tengo en una hoja de Excel.

El lector de código de barras escribe los códigos de los productos en Textbox1
y luego se resalta en color amarillo la línea correspondiente, pero yo
quiero que una vez que el lector capta el codigo, el cursor se posicione
automáticamente en Textbox1, pero en lugar de eso, el cursor se queda en
Textbox2. estoy usando el código TextBox1.SetFocus pero no me funciona. Yo se
que estoy haciendo algunas cosas mal, pero no sé que es:

En m1 tengo la siguiente fórmula
=SI(L1<>0;BUSCARV($L1;InventarioII!$A:$I;9;0);1)

En la cada celda de la columna I tengo esta fórmula =fila()

Y el código del formulario es el siguiente:

Private Sub TextBox1_AfterUpdate()
Sheets("InventarioII").[L1] = TextBox1.Value
If Evaluate("iserror(m1)") Then MsgBox "El código de la blusa no existe!": _
TextBox1.SetFocus: Exit Sub

ultF1 = Sheets("InventarioII").[m1].Value
Sheets("InventarioII").Select
Range(Cells(ultF1, 1), Cells(ultF1, 9)).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
TextBox1 = Empty
TextBox1.SetFocus
End Sub

Que estoy haciendo mal? Alquien puede ayudarme?

Darío.