>>Hi Mike,
>>
>>Following code should give you a good starting point

>>lcStr = "ISA*00*00*ZZ*TEST^"
>>lcDelim = "*"
>>lnItem = 3
>>lnP1 = AT(lcDelim, lcStr, lnItem) + 1
>>lnP2 = AT(lcDelim, lcStr, lnItem+1) - 1
>>? STUFF(lcStr, lnP1, lnP2-lnP1+1, "AA")
>>? STUFF(lcStr, lnP1, lnP2-lnP1+1, "ABCD")
>>
>>

>
>That's almost what I did. Yours is better, of course. :)
>
>Thanks

You're welcome. :)