En efecto, la implementación para saber el nombre de cualquier control activo se haria asi de simple:
a los controles que quieras conocer su nombre, encierralos en un grupo
imagina que el grupo se llama a
PUBLIC SUB a_GotFocus()
variable o control texto= Application.ActiveControl.name
END
listo