[Resolvido]Evitar que 'Esc' desfaça a digitação

Boa noite!

Como evitar que a tecla "Esc" desfaça a digitação?

Por padrão, conforme código abaixo, uso a tecla 'Esc' para fechar meus formulários, porém quando estou no meio de um novo cadastro, ao apertá-lo ele desfaz toda digitação. Tem como ajustar esse código para que o 'Esc" tenha somente a função que eu determinar para ele? No caso somente executar somente o que estiver determinado no código abaixo?

Código:

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

  If KeyCode = 27 Then
      If IsNull(Me.dataCadastro) Then
        KeyCode = vbKeyEscape
        MsgBox "É necessário concluir ou cancelar o cadastro antes de sair..", vbExclamation, "Aviso"
      Exit Sub
     
      ElseIf Me.Dirty Then
        If MsgBox("Deseja salvar as alterações?", vbQuestion + vbYesNo, " Confirmação") = vbNo Then
            Me.Undo
            DoCmd.Close
        Else
            DoCmd.Save
            DoCmd.Close
        End If
      Exit Sub
 
  End If
      DoCmd.Close
  End If

End Sub

Uma jogada rápida:

Código:


if keycode = vbKeyEscape then
    if len(txt_nome)>0 then
        keycode = 0
    else
        keycode = vbKeyEscape
    end if
end if


veja se

Boa noite formiga!

Rápida e certeira amigo, deu certinho aqui, obrigado!