se a instrução acima não fez efeito, então provavelmente não são espaços; mas algum outro caractere. Identifique-o e utilize o replace

Reinaldo obrigado por responder, não sei se fui claro, quando o usuário digita alguma descrição na textbox1 e sai para preenchimento de outra textbox teclado enter ou tab o efeito que eu quero e que se faça a arrumação no ato da saída deste textbox.

Segue o exemplo em anexo.

silvajmp

Agora não entendi.
Em seu exemplo não "fica" espaço algum no texto digitado teclando tab ou enter.

... se faça a arrumação no ato da saída...

O que considera arrumação????

Bom-dia.
Tente assim:

Crie um Módulo:

Public Function RemoveEspacoExtra(ByVal str As String) As String
 Dim astr() As String

 astr = Split(str, " ", , vbTextCompare)
 str = ""
 Dim i As Integer
 For i = 0 To UBound(astr)
     'Debug.Print astr(i), astr(i) = ""
     If astr(i) <> "" Then
         str = str & astr(i) & " "
     End If
 Next i
 
 RemoveEspacoExtra = Trim(str)
End Function


E no TextBox:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
	TextBox1.Text = RemoveEspacoExtra(TextBox1.Text)
End Sub

Espero que ajude.

No caso de um campo de Email, coloque assim:

Private Sub txtEmail_Change()
Me.txtEmail.Text = Trim(Me.txtEmail.Text)
End Sub

Não precisa de módulo é direto no evento.

Att,

Francisco

Francisco boa noite obrigado por contribuir, deu certo, e isso mesmo que eu preciso.

Valeu

silvajmp