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