Verificar conteúdo de campo no formulário

Buenas!

Estou fazendo uma agenda de compromissos para um pequeno salão de beleza.
No formulário tenho oito botões com o nome de cada profissional de atendimento, e outros oito campos para receber o nome do cliente a ser atendido pelo profissional. O campo cliente tem o nome formado pelo nome do profissional + a palavra "cliente" .




Assim:
1) botão do profissional: Maria >>>> nome do campo cliente: MariaCliente
2) botão do profissional: Paula>>>> nome do campo cliente: PaulaCliente

.....

Gostaria de criar um código que identificasse o campo "MariaCliente" ao clicar no botão "Maria", e assim para os demais botões.
(não queria usar o select case para cada botão de profissional, prefiriria um loop, para encontrar o campo relacionado ao controle ativo)

Já sei que ao clicar em "Maria", ele é o controle ativo. Mas não sei como achar o campo relacionado "MariaCliente" para verificar se está preenchido ou não.

Cheguei a fazer isso, mas não funcionou:

Function FunBtProf()
Dim ctlCliente As Control
Dim ctlAtivo As Control
Dim frm As Form

Set frm = Screen.ActiveForm
Set ctlAtivo = Screen.ActiveControl
ctlCliente.Name = ctlAtivo.Name & "Cliente"

If IsNull(ctlCliente) Then
' aqui vai entrar uma instrução

Else


If MsgBox("Deseja excluir este agendamento?", _
vbYesNo + vbExclamation + vbDefaultButton2, "Excluir o agendamento") = vbNo Then
Else 'Sim

'procedimento para excluir o agendamento (vai limpar o campo "MariaCliente")

Exit Function

End If
End If


DoCmd.OpenForm "FO_Agenda_IncluirCliente"

End Function