Delete a string from field with multiple and duplicate entries

i’m a newbie… i have to delete a string in a field with multiple entries but if there is a duplicate entry it both deletes the string… i would like it to delete only one string that i search and not all the same entry in the field. thanx…

here’s my code…

retamount = Split(amountstr, delim)

ret2amount = Split(amountdel, delim)

For x = 0 To bound

	If ret(x) = ret2(0) Then

	Else

		common = common +Chr(10) + ret(x)			

	End If

Next



For x = 0 To bound

	If retamount(x) = ret2amount(0) Then

	Else

		commonamount = commonamount +Chr(10) + retamount(x)			

	End If

Next



Call uidoc.FieldSetText("RatesParticulars", common)

Call uidoc.FieldSetText("ParticularsAmount", commonamount)