ct = "*test*1*test2*2" ? ALINES(aTest,ct,4,"*") FOR i = 1 TO ALEN(aTest) ? "*" + aTest[i] + "*" + aTest[i+1] i = i +1 Next