[Resolvido]Erro em Função para Eliminar Espaços em String

Pretendo ter uma função que aplique a função Trim() em todos os campos de tipo texto e, assim, elimine os espaços no antes e após o texto digitado.
Eu tentei, sem sucesso, essa a função abaixo. Aparece erro "2448: Você não pode atribuir um valor a este objeto".

Function EliminaEspaco() As String
Dim ctl As Control

For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
ctl = Trim(ctl)
End If
Next
End Function

Também gostaria de incrementar a eliminação de espaços extras entre as palavras.

Grande Noberto,

continua gerando o mesmo erro. Acho que, como ctl é definido como Control, abaixo não pode ser aplicada uma função que é exclusiva para Strings.

Consegui aplicar, mas usando outro critério de condição. Tag (ctl.Tag = "qualquervalor") ao invés de ControlTyte.
Creio que ao fazer uso da propriedade ControlType, o VBA não permite aplicar uma função string em uma variável do tipo controle.

Bom dia, rgondim

Reveja o que tem, pois o código funciona aqui

Verdade! Fiquei surpreso.

Testei em outro banco de dados e funcionou.
Não saberia mais identificar com precisão o contexto do erro porque fui obrigado a fazer muitas alterações.
Talvez algum campo texto com valor numérico...?

Uso agora a função abaixo para retirar espaços em campos texto:

Function TiraEspaco(ByVal strCampo As String)
Do
strCampo = Replace(strCampo, " ", " ")
Loop Until InStr(strCampo, " ") = 0
TiraEspaco = Trim(UCase(strCampo))
End Function

Funciona muito bem.

Onde eu aplico esse código?
Em algum evento do campo?