Dim oColl             ' object pointer for collection
Dim oMember             ' object pointer for members
Dim oNull               ' object pointer for null object
Dim oCollItem   ' object pointer for collection item
Dim sLightName  ' string variable for the camera name 
' Create the stuff we will populate the collection with
Set oNull = ActiveSceneRoot.AddNull     
checkType oNull                 ' = project item
Set oCollItem = CreateObject( "XSI.CollectionItem" )
oCollItem.Value = "Camera"              
checkType oCollItem                     ' = collection item
sLightName = "light*"                   
checkType sLightName                    ' = string expression
' Create the new collection
Set oColl = CreateObject( "XSI.Collection" )
' Add each item
oColl.Add oNull
oColl.Add oCollItem
oColl.Add sLightName
' What do we have now?
LogMessage "----------------"
For Each oMember In oColl
        checkType oMember
Next
'--------------------------------------------------
function checkType( in_object )
        LogMessage in_object & " is a " & TypeName( in_object )
end function
'--------------------------------------------------
' Output of above script:
'INFO : "null is a Null"
'INFO : "Camera is a CollectionItem"
'INFO : "light* is a String"
'INFO : "----------------"
'INFO : "null is a Null"
'INFO : "Camera is a Camera"
'INFO : "light is a Light"