18/11/2005, 00:48
|
| | | Fecha de Ingreso: septiembre-2005
Mensajes: 76
Antigüedad: 19 años, 7 meses Puntos: 0 | |
| Dim X As Integer
Dim palabras As Variant
palabras = Split(Text1.Text)
For X = 0 To UBound(palabras)
Text2.Text = Text2.Text & " " & palabras(X) + " [Añadir]"
Next X
La respuesta anterior estaba mal
Aca lo que hacemos es ingresar en una matris todas las palabras y despues la agregamos al textbox
__________________
Buby Systems |