Funcao Verifica Campo Selecionado Conteudo e Nome do Campo

Alguém tem algum exemplo de função que atribui o nome do campo selecionado a uma variável x e conteúdo deste campo a uma variável y?

para o nome do campo digite: x=Me.seucampo.Name ou x=[seucampo].Name ou x=Me("seucampo").Name
para o valor do campo: y= Me.seucampo ou y=[seucampo] ou y=me("seucampo")

pode fazer uma função assim:

function atribuir(campo)
x=me(campo).Name: y=me(campo)
end function

e execute a funçao assim onde quiser: call atriubir(seucampo)

obrigado pela resposta, vou testar a noite dou feedback.