[Resolvido]Importando do Access para Excel

Tenho um formulário em vba excel onde gravo os dados em um banco de dados
Tenho um Textbox onde habilitei opção de multilinha.
quando os dados são gravados na tabela ele grava também considerando as quebras de multilinha.

Estou fazendo uma pesquisa nesse banco e trazendo os dados para uma planilha do excel
Quando os dados aparecem eles vem no seguinte formato

"CAPACITAR OS ASSISTENTES A ATEN
DER CLIENTES QUE CONTATAM SOLI
CITANDO NOVAS ASSINATURAS UTILI
ZANDO DE FORMA CORRETA OS CÓ
DIGOS PROMOCIONAIS."

Existe uma forma de trazer esses dados em uma unica linha

"CAPACITAR OS ASSISTENTES A ATENDER CLIENTES QUE CONTATAM SOLICITANDO NOVAS ASSINATURAS UTILIZANDO DE FORMA CORRETA OS CÓDIGOS PROMOCIONAIS."

Já tentou substituir as quebras de linhas por espaço?

Me.NomeDoControle = Replace(NomeCampo, vBcRlF, " ")

Tentei colocar num campo na tabela de consulta mas esta dando erro

Teste: Replace( [Cadastro_Turmas]![Objetivo] ,vbcrlf, " " )

Sabe me dizer onde esta o erro nesse comando?

Se é em consulta ou na origem de um campo de um formulário ou relatório, deve-se trocar as vírgulas por ponto e vírgula. E sendo na consulta, o mais prático é ter o campo da tabela na consulta e criar o outro campo com a instrução:

Teste: Replace([Objetivo];vbcrlf;" ")

Criquio,

Agora deu certo.

o Código ficou assim. Teste: Substituir([Objetivo];" ";" ").

Existe alguma forma de colocar nesse código uma condição de erro.

É Porque quando o campo esta vazio ele traz o resultado  "#Erro"

Da para colocar uma função para quando der erro ele atribuir vazio no campo

Tente assim:
Teste: Iif(IsError(Substituir([Objetivo]);"";" ";" "))

ou coloque outro campo calculado de nome SemErro por exemplo e coloque:
Iif(IsError([Teste]);"";[Teste])

Criquio,

Joguei conforme você disse dentro da tabela e funcionou.

Mas quando vou abrir o formulário esta dando a mensagem.

-2147217900
Função 'replace' indefinida na expressão.

Você já viu isso?

Obrigado pela ajuda.