[MSCE VBA] TrimSolidWithSurface and CapSurface failed

A solid which was cut by a shape, and we didn't know what went wrong and became a Smartsurface.

In Microstation, SmartSolid can be converted by:

However, VBA failed to cap that. Any idea?

DemoTrimSolidWithSurface2.dgn