Thanks! But I just could translate the part of code (C# to VBA ). Here is my VBA code.
Dim solids As Element Set solids = ActiveModelReference.GetElementByID(elmId) Dim solidList As TFElementList Set solidList = New TFElementList solidList.InitFromElement (solids)