También podrías optar por validar el texto mediante el evento en un lostfocus o en un validate (mejor). Te llegaría con una línea así:Código: Text
Text1.Text = LTrim(Replace(Text1.Text, Chr(32) & Chr(32), Chr(32))
Ya, pues que sepas que te sobra el bucle y repites algo ya dicho:Si pero esto funciona solo si tiene 2 espacios en blanco (Chr(32) + Chr(32)), y si tiene 3? 4? o mas?CitarTambién podrías optar por validar el texto mediante el evento en un lostfocus o en un validate (mejor). Te llegaría con una línea así:Código: Text
Text1.Text = LTrim(Replace(Text1.Text, Chr(32) & Chr(32), Chr(32))
De todas formas con esto obligas al desaparecido Cmps360 a programar una validación. El mismo...
Abur.