Dim oColl             ' object pointer for collection
Dim oExpColl            ' object pointer for expanded collection
' Create the new collection & populate it 
Set oColl = CreateObject( "XSI.Collection" )
oColl.Add ActiveSceneRoot
checkContents "oColl", oColl
' Expand the collection and save it as a new collection
LogMessage "----------------"
Set oRoot = oColl.Item(0)
oRoot.BranchFlag = siBranch
Set oExpColl = oColl.Expand
checkContents "oExpColl", oExpColl 
' Now start again but this time don't set the branch flag
LogMessage "----------------"
oExpColl.RemoveAll
oRoot.BranchFlag = siNode
Set oExpColl = oColl.Expand
checkContents "oExpColl", oExpColl 
'--------------------------------------------------
function checkContents( in_name, in_coll )
        If in_coll.Count > 0 Then
                LogMessage in_name & " collection now contains " & in_coll.GetAsText 
        Else
                LogMessage in_name & " collection is empty."
        End If
end function
'--------------------------------------------------
' Output of above script:
'INFO : "oColl collection now contains Scene_Root"
'INFO : "----------------"
'INFO : "oExpColl collection now contains Scene_Root,Camera_Root,Camera,Camera_Interest,light"
'INFO : "----------------"
'INFO : "oExpColl collection now contains Scene_Root"