Ver Mensaje Individual
  #6 (permalink)  
Antiguo 17/03/2008, 05:08
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 4 meses
Puntos: 37
Re: Cadena de String ¡¡¡

Mira si te vale este código. Lo puedes poner en un CommandButton o en el evento LostFocus del Text1:

Código:
Dim a() As String, i As Integer

a = Split(Text1)
For i = 0 To UBound(a)
    If a(i) = "edad:" Then
        Text2.Text = a(i + 1)
        Exit For
    End If
Next i