void
DESTROY(self)
    SV *self
PPCODE:
{
    WINOLEVARIANTOBJECT *pVarObj = GetOleVariantObject(aTHX_ self);
    if (pVarObj) {
	RemoveFromObjectChain(aTHX_ (OBJECTHEADER*)pVarObj);
        ClearVariantObject(pVarObj);
	Safefree(pVarObj);
    }

    XSRETURN_EMPTY;
}