Retirar espaços antes e depois de strings

No Procedimento de Evento AfterUpdate (Após Atualizar), do controle, defina o seguinte código VBA:

Private Sub SeuControle_AfterUpdate()
Me.SeuControle = Trim(Me.SeuControle)
End Sub