Identificar teclas dependendo da situação

Boas galera,

Tenho os seguintes eventos,

Código:

'Ao perder o foco
Private Sub txtQuant_LostFocus()

    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
    Me.txtIdentCardapio.SetFocus
'Salvar, "ir para" Novo registro e selecionar item para o foco.

End Sub


Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyEscape
    DoCmd.RunCommand acCmdSaveRecord
    Me.btnComentar.SetFocus
Case vbKeyDel
    Call btnExcluir_Click
Case vbKeyInsert
    Call btnComentar_Click

End Select


A questão é que quando tenho o campo txtQuant.Setfocus e pressiono a tecla "Esc" me gera um erro pois é carregado primeiro o comando de ir para criar novo registro e depois
selecionar o botão comentar que não existiria pois o registro no foi criado.
Sei que devo usar um If mas como identifico se um campo tem o foco? pesquisei bastante mas não consegui achar um jeito.

Boa noite,
Para identificar o controlo do foco, utilize ActiveControl
if activecontrol="NomeDoControlo" then ...