Dim varTmp As Variant
Dim i as Integer
varTmp = doc.GetItemValue("Cat_Key")
If Not IsArray(varTmp) Then Exit Sub
For i = LBound(varTmp) To UBound(varTmp)
If Left(Trim(varTmp(i)), 3) = "xxx" Then
varTmp(i) = ""
End If
Next
varTmp = FullTrim(varTmp)
Call doc.ReplaceItemValue("Cat_Key", varTmp)
Call doc.Save(True, False)