por Adrian » 28 Jun 2006 10:24
Hola!
Esto va en el evento Exit del text a tratar, esto es un ejemplo con un formulario con un textbox llamado textbox1.
Private Sub TextBox1_Exit(ByVal Cancelar As MSForms.ReturnBoolean)
Dim Aux As String, i As Integer
Aux = ""
For i = 1 To Len(Me.TextBox1.Value) Step 2
Aux = Trim(Aux) & " " & Trim(Mid(TextBox1.Value, i, 2))
Next i
Me.TextBox1.Value = Aux
End Sub
Salu2.xls