RhinoCommon GetObjectList

I’m trying to get objects by name in VB following the example with GetObjectList, but…long story short it’s not really working. Could I get a quick, but slightly different example that gives me a collection of RhinoObjects instead of writing out the GUIDs?

Something like:

Dim List As New List(Of DocObjects.RhinoObject)         
Dim s As Rhino.DocObjects.ObjectEnumeratorSettings = New Rhino.DocObjects.ObjectEnumeratorSettings 
s.HiddenObjects = True       
s.LockedObjects = True        
For Each obj As DocObjects.RhinoObject In RhinoDoc.ActiveDoc.Objects.GetObjectList(s)            
List.Add(obj)         
Next

Cheers

Thanks!