[VBA] get sheet custom properties

Hi,

how can you get solidworks drawing custom properties? Or even better the custom properties of a model attached to an active sheet in slddrw?

I assume I would set this:

Set swSheet = swModel.GetCurrentSheet

But then I don't know how to get the the custom properties or the base model and it's active configuration.