I'm testing Extrude to solid method as follows:
Sub TestExtrude()
Dim oEle As Element 'Dim oSmartSolid As SmartSolid Dim oSmartSolidEle As SmartSolidElement
Set oEle = ActiveModelReference.GetElementByID(DLongFromString("62494"))
'This is not necessary…