Necesito que se haga 8 veces!!!!

[Karolineta]

Hola amigos del foro, 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
HP3.Text3(2).Text = Texto
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

[lic_dahool]

No entendí nada, así que voy a responderte esperando haberte interpretado bien, segun lo que veo vos queres que por cada vez que "liberas el boton del mouse" se vaya guardando en el vector Text3 ? realmente no tengo muy en claro lo que quieres por lo que tal vez mi respuesta no se aplique.

Bueno, porque no creas un indice global que se vaya incrementando cada vez que entre a MouseUp y luego la asignacion sería simplemente Text3(indice) = Texto

Si estoy mal, con gusto te ayudaría si me podés aclarar un poco el panorama.

Saludos.