[Resolvido]Não remove espaço a direito.

Colegas muito boa noite.
Peço a ajuda de uma coisa muito pequena, porém importante.
Eu não estou conseguindo remover espaços do começo e do fim do nome das função  Me.cbo_nome = Trim(Me.cbo_nome) e Me.cbo_nome = Lrim(Me.cbo_nome).
Coisa pequena, mas observando, os clientes e funcionários de setores copiam do Excel e quando colam vem com espaço.
Criei um código que quando o Usuário( Paciente/Processos) são cadastrados o sistema cria a pasta onde vai ficar todos anexos, antes de tudo o sistema verifica se a Usuário já existe na tabela, e quando vem com espaço o sistema já cadastra e cria  a pasta com mesmo nome por causa do espaço.
já pesquisando mesmo com Corrent.Db updete nada funciona

Código:

Private Sub cbo_nome_AfterUpdate()
Me.cbo_nome = RTrim(Me.cbo_nome)

Bom dia
Parece impossível!
Me.cbo_nome = Trim(Me.cbo_nome)

Crysostomo,

Antes de resolver o seu problema de espaços em branco nos nomes, existe a questão de criar as pastas com o nome do paciente.
Eu sugiro criar as pastas com o nº do CPF do paciente e este número não se repete.
Porque se surgirem homônimos (pq vai surgir) ai vc vai ter um problema.

Apenas um pitaco

Boa noite, realmente Alexandre, isso pode matar a dor de cabeça de 2 paginas. mas qualquer.

Boa noite galera.
@Alexandre Neves o comando RTrim funciona. Encontrei o problema que estava acontecendo é que eu tinha colocado o comando NoList antes do Rtrim, mas mesmo assim eu não sei o outro problema que achei. seja O comando funciona só depois do If.

Código:

No_list.....
  Me.cbo_nome = RTrim(Me.cbo_nome)
 MsgBox "O usuário não foi cadastro" & vbCrLf & "É prioridade", vbExclamation, "Serviço Social"
If MsgBox(" Quer cadastrados?", vbYesNo, "Serviço Social") = vbYes Then