#VBA code:   solid = CType(model, IpfcSolid)
$solid = $model; # nur um weniger ändern zu müssen
#VBA code:   solidProperties = solid.GetMassProperty(Nothing)
$solidProperties = $solid->GetMassProperty();