¿Cómo enfocar una Textbox en un código bva?

Si estas usando un userform

Seria desde el evento Initialize

Private Sub UserForm_Initialize()

TextBox1.SetFocus
End Sub

Si te silve no olvides valorar para cerrar la pregunta 

Gracias de ante mano amigo, pero no estoy usando un UserFrom

Tengo este evento:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("entradas_typ_code")) Is Nothing Then
    Cancel = True
    Sheets("BUSCAR PRODUCTO").Select
    TextBox1.SetFocus 'Pero con este codigo, esta linea me da error.
    End If
End Sub

A menos que no se pueda realizar en una sub rutina? solo funciona con UserFrom?

Gracias por tu colaboración, soy nuevo en esto.

H o l a 

Usa esto

TextBox1. SetFocus

Funciona en un UserFrom, pero en una sub normal?

H o l a 

a que te refieres  en una sub normal?

Dime que acción cuando realizar deseas el enfoque

HOLA AMIGO.

Mira, por ejemplo este código, no estoy usando un userfrom, es solo un evento.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("entradas_typ_code")) Is Nothing Then
    Cancel = True
    Sheets("BUSCAR PRODUCTO").Select
    TextBox1.SetFocus 'Pero con este codigo, esta linea me da error.
    End If
End Sub

Quiero que cuando haga doble click en una celda especifica, me mustre otra hoja (hasta alli va bien, y luego enfoque la textbox1 que tiene la hoja. (mi problema)