Вместо установки фокуса на какой-либо конкретный элемент управления, который может вызвать проблемы с обслуживанием в будущем, если элементы управления в форме изменятся, если вы имитируете нажатие клавиши Tab, тогда фокус переместится на следующий объект в порядке вкладок.1001 *
SendKeys "{TAB}"
DoEvents
Me.Command4.Visible = False
Обратите внимание, что doevents необходимо разрешить обработку Tab.