Como quitar espacios en blanco en textos de un textbox y ...

[pkj]

Para quitar los espacios te puede servir esto:

Código vb:

Function QuitaEspacios(ByVal Texto As String, ByVal DelComienzo As Boolean, ByVal DelFinal As Boolean) As String
  On Local Error Resume Next
  If DelComienzo = True Then
 
    ' hacemos un bucle que se repetira hasta que la variable "Texto"
    ' no contenga ningun salto de linea con un espacio a continuacion.
    ' Comparacion: Si dentro de la cadena "Texto" encontramos la cadena "saltodelinea+espacio"...
    Do Until InStr(1, Texto, vbCrLf & " ") = 0
      ' reemplazamos dentro de "Texto" todas las cadenas 
      ' "saltodelinea+espacio" por la cadena "saltodelinea" (osea vbcrlf).
      Texto = Replace(Texto, vbCrLf & " ", vbCrLf)
    Loop
 
  End If
    
  ' y aqui hacemos lo mismo pero buscando saltos de linea con
  ' un espacio delante en lugar de a continuacion.
  If DelFinal = True Then
    Do Until InStr(1, Texto, " " & vbCrLf) = 0
      Texto = Replace(Texto, " " & vbCrLf, vbCrLf)
    Loop
  End If
  QuitaEspacios = Texto
End Function
 

Y lo puedes usar así:

Código vb:

Private Sub Text1_Change()
  Text2.Text = Trim$(QuitaEspacios(Text1.Text, True, True))
End Sub
 

Saludos