Hello,
I was not able to replicate the issue you're having. Hard to say what the exact cause is from your code snippet, but it seems like something could be going wrong in the component or group setup.
I recommend to avoid assigning multiple components to groups unless absolutely necessary. By default, HyperSizer creates 1 group per component. Usually the only reason to deviate from this pattern is if you are doing variable linking between components.
So instead of assigning the components to a group, use the Component.GroupID property to get the group corresponding to that component, and then do your group modifications.
Here is a snippet of code where I successfully pulled the AnalysisSelections from the component.
If you're still having trouble, perhaps we could take a look at your full VBA code and database.
' Get project object
Set oProject = oHS.Projects.GetProject("Test Project")
' Get the component
Dim comp As HyperSizer.Component
Dim selections As HyperSizer.AnalysisSelectionCol
Set comp = oProject.Components.GetComponent(2)
' Get the group
Dim group As HyperSizer.group
Set group = oProject.Groups.GetGroup(comp.GroupId)
' Set the concept
Dim bpcBeamPanelConceptList(0 To 0) As HyperSizer.BeamPanelConcept
bpcBeamPanelConceptList(0) = 23 'bpcZBonded
Call group.setConcepts(bpcBeamPanelConceptList())
group.Save
' Get the analysis selections
Set selections = comp.AnalysisSelections