Dim cgl, cil Set cil = CatalogDB.CatalogRoot.SubItems Set cgl = CatalogDB.CatalogRoot.Subgroups Dim Msg Msg = "Count of CatalogGroup'SubItems is " & cil.Count & vbCrLf Msg = Msg & "Count of CatalogGroup'Subgroups is " & cgl.Count & vbCrLf MsgBox Msg
File Catalog Item Object