Tecla Enter para ejecutar comando no funciona

[LgVudu]

Antes que nada quiero sumarme a todas las felicitaciones que les dan día a día a todos los que responden en este foro, por la gran calidad y calidez con la que responden a cada pregunta, desde las más básicas a las más complicadas.

Ahora mi consulta: intento poner un código para que se ejecute un comando cuando presiono la tecla Enter en un textBox. Busqué en internet y en todos lados dice lo mismo, pero cuando lo agrego a mi módulo no funciona, alguien tiene una idea???.

Pongo el código como yo lo tengo escrito:

Private Sub cmdHistorico_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii = 13 Then
Cells.Find(What:=txtBuscar.Value, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Activate

End If

Musicimas gracias por todo.

[3pies]

Sacado de la ayuda de VBA:

Código:

Un evento KeyPress no se produce bajo las siguientes condiciones: 
 
Al presionar TAB.
Al presionar ENTER.
Al presionar una flecha de dirección.
Cuando una pulsación de una tecla provoca que
el enfoque se mueva de un control a otro.

Prueba este código que sí funciona:

Código:

Sub cmdHistorico_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Range("a1") = "Has pulsado intro"
    End If
End Sub

Salu2

[LgVudu]

3 pies muchisimas gracias por el dato, con el código que me pasaste anda perfecto.