[Resolvido]Código VBA dentro de campo memo

Olá a todos, boa noite. Estou com a seguinte dúvida, e gostaria de saber se é possível fazer o seguinte:

Tenho um campo memo em minha tabela no formato rich text. Nela, coloquei a seguinte informação >

"
Olá " & rsCli!txtNome & "! Estamos entrando em contato para" (campo txtMensagem)

Até aí tudo bem.

.HTMLBody = rsCon!txtMensagem 'faz a pesquisa na tabela e pega os dados do campo txtMensagem (tipo memo)


Queria que ao substituir em rscon!txtMensagem, ficasse assim:

"
Olá " & rsCli!txtNome & "! Estamos entrando em contato para" (no lugar de rsCli!txtNome ficar o nome do cliente)

Espero que tenha explicado bem. Só queria saber se isso é possível ser feito.
Obrigado

Não e difícil resolver, mas o ideal seria postar um exemplo do seu banco, pois seria necessário ver os nomes de campos para ajudar.

Oi Cláudio, boa tarde. Segue o banco de dados. É o mesmo disponibilizado aqui no fórum.

Obrigado

Estou tentando fazer assim, mas ainda não cheguei lá:

strBody = rsCli!txtMemo
.HTMLBody = Replace(strBody, [NomeCliente], rsCli!Nome)
.HTMLBody = strBody

Ou seja, se lá no campo txtMemo do formulário eu colocar o código [NomeCliente], ele vai substituir pelo nome do Cliente.

Mas, ainda não tá funcionando.

Consegui assim:

strBody = rsCli!txtMemo
.HTMLBody = strBody
.HTMLBody = Replace(strBody, "%NomeCliente%", rsCli!Nome)


Deixo para estudo e consulta posterior.

Companheiro boa tarde.
Que bom que resolveu

Desculpe a demora na resposta, mas estava em viagem e não pude acessar o fórum, pois meu tablet deu pau.
Mas se houver outra oportunidade...
Abraço.

Oi Cláudio, eu que agradeço pela iniciativa em ajudar. Aprendo mto com esse fórum a cada dia. Obrigado