Hi Daniel,

Try this:

       Dim lcString As String = _
             "ADT MEX AV BOG515.00Y AV MEX515.00Y NUC1030.00END ROE1.00AV"
        Dim lcString2 As String, ia

        lcString = lcString.Substring(lcString.IndexOf(" AV ") + 1)
        lcString2 = lcString

        For ia = 1 To 4
            lcString2 = lcString2.Substring(lcString2.IndexOf(" ") + 1)
        Next
        lcString = lcString.Replace(lcString2, "")
        MsgBox(lcString)

>Hi
>
>I need create an Regular Expression to obtain this datas:
>
>I've this string
>
>ADT MEX AV BOG515.00Y AV MEX515.00Y NUC1030.00END ROE1.00AV
>
>I need convert that :
>
>AV BOG515.00Y AV MEX515.00Y
>
>
>How i Make that
>
>thank'u