Подскажите пожалуйста, почему при нажатии стрелок вверх или вниз фокус скачет, код в VBA

Private Sub SpinButton1_SpinDown()

TxtBox1.SetFocus

End Sub

Private Sub SpinButton1_SpinUp()

TxtBox1.SetFocus

End Sub

первый клик проходит норм, фокус как положено становится на TxtBox1, при втором фокус остается на SpinButton1, еще щелчок и на TxtBox1... как сделать чтоб активным все время был TxtBox1?