Lo tuve que corregir, pero aun no anda bien...

Karol
27 de Abril del 2005
Hola amigos, mi inquietud es lograr que se repita la instrucción que muestro abajo, para que pueda seleccionar textos diferentes de una cadena y almacenar las selecciones respectivas en un vector que se llama Text3(i).
El código funciona pero para una sola selección con el ratón. Es decir, que si quiero seleccionar varios valores de un String no lo puedo hacer, ya que sólo me toma la selección inicial y la almacena en la posición 0 del vector.
Porfa, díganme que falta y que tengo mal. Es urgente!!!

En este código he omitido la parte donde debería estar el ciclo que permite recorrer el vector (de 8 posiciones por cierto), y cargar las diferentes selecciones, para evitar que se envicien con mis errores.
Le agradezco de antemano a quien me pueda ayudar.

Private Sub Form_Load()
Texto1 = "01/02/05 00:01:00 002 45852 00:02 00:00:50 0058002502765149818258362 02"
HP3.Text2.Text = Texto1
End Sub

Private Sub Text2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a As String, i As Integer
If Button = 1 Then
If Text2.SelLength <> 0 Then GoSub Texto
TSel = Texto
MsgBox TSel
Exit Sub
Texto:
For i = Text2.SelStart + 1 To (Text2.SelStart + Text2.SelLength)
a = a & Mid(Text2, i, 1)
Next i
Texto = a
Return
End If
End Sub