Modify the sub element of Cell Header

Actually, "GetRegionDifference()" function returns a cell header with complex shape as subelement.

I want to replace the sub element[from complex shape to shape] of a cell header using microstation by using VBA. How to accomplish this? Kindly suggest

[Microstation version : V8]