Trigger KeyDown Or KeyUp

[delta]

i try to TextBox6 KeyDown Or KeyUp is Trigger then
commandbutton1 click (execute macro in commandbutton1)


>>> as many times <<<
>>> use code - tags <<<

Private Sub TextBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyAscii
        Case 13 'enter key
          commandbutton1_Click
      
        Case Else
    End Select
end sub

or

Private Sub TextBox6_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyUp = vbKeyReturn Then
    CommandButton1_Click
    'KeyCode = 0
End If
End Sub

but not working pls help for correct code