Boa noite a todos . como atribuir um rotina (macros) em um botão de atalho tipo F2, F3, F4 com um detalhe se o formulário estiver vazio roda liso porem se tiver 2 textbox e o foco estiver em uma delas já não funciona preciso de um código que funcione indiferente se o foco estiver na textbox ou na combobox ou na listbox alguém pode me ajudar? o codigo q uso é o seguinte:

Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case vbKeyF2
UserForm1.Show
Case vbKeyF3
MsgBox Aplicativo & " " & AppVersao, vbInformation + vbOKOnly, "...::: SEI :::..."
Case vbKeyF4

Case vbKeyF5
Dim Calculadora As Double
Calculadora = Shell("calc.exe", vbNormalFocus)
Case vbKeyF6

Case vbKeyEscape

'FECHA FORMULÁRIO
Beep
If MsgBox("Deseja sair da tela de manutenção das OS? Todos os dados na tela serão perdidos.", vbQuestion + vbYesNo, Aplicativo & " " & AppVersao) = vbYes Then
Unload Me
End If
End Select
End Sub