Conseguir SetFocus en TextBox despues de cambio

Tengo este codigo, cumple la function de buscar en cierta hoja y mostrarme los datos en textbox.

Cuando escaneo cierto numero de parte en textbox1 y genera esto un cambio, me muestra la informacion que requiero en los demas textbox. Mas no logro hacer ni me doy idea de como lograr que el cursor quede activo de Nuevo en textbox1 de una manera mas directa y sencilla de la que tengo dentro del codigo con botones extras.

Me pueden ayudar a integrar lineas de codigo para hacer mas agil que el cursor este de vuelta en textbox1 despues que me desplegue la informacion requerida?

Lo dejo con letra Bold.

Saludos y Gracias

Private Sub CommandButton1_Click()
'BOTON LIMPIA, ELIMINA REGISTROS DE LOS TEXTBOX
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End Sub

Private Sub CommandButton2_Click()
'BOTON AZUL CARGA ARCHIVO LLAMADO RS DESDE DIRECCION Y MUESTRA EL NOMBRE DE MODELO
Run ("IdMesaRS")
TextBox6 = Sheets("Sheet1").Range("B2")
End Sub
Private Sub CommandButton3_Click()
'BOTON NARANJA CARGA ARCHIVO LLAMADO FP DESDE DIRECCION Y MUESTRA EL NOMBRE DE MODELO
Run ("IdMesaFP")
TextBox6 = Sheets("Sheet1").Range("B2")
End Sub

Private Sub CommandButton4_Click()
'SALE DE EXCEL NO GUARDA CAMBIOS
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Quit
End Sub

Private Sub CommandButton5_Click()
'BOTON SIGUIENTE HABILITA CURSOR PARA NUEVA CONSULTA
TextBox1.SetFocus
End Sub

Private Sub TextBox1_AfterUpdate()

Set h = Sheets("Sheet1")
    Set b = h.Columns("T").Find(TextBox1)
    If Not b Is Nothing Then
        TextBox2 = h.Cells(b.Row, "D")
        TextBox3 = h.Cells(b.Row, "L")
        TextBox4 = h.Cells(b.Row, "P")
        TextBox5 = h.Cells(b.Row, "S")
        End If
End Sub