Textbox Enter

Hallo Excelfreunde,
ich löse innerhalb einer Userform mit einem enter in einer textbox ein such makro aus. Danach springt der cursor überall hin wohin man will, ich versuche schon seid stunden den cursor dazu zu überreden das er im textfeld1 bleibt. Es klappt nicht mit textfeld1.SetFocus und auch nicht über ein clickereignis in einem ausgeblendeten Button. Kennt jemand ein trick?
liebe grüsse thomas

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'** Abschließen der Suchbox mit Enter führt Suchfunktion aus
If KeyCode = 13 Then
'** Makro aufrufen
'UserForm2.CommandButton1 = True
CommandButton1_Click
TextBox1.SetFocus
End If
End Sub