Get Beam IDs connecting a specific Node

Hi All,

Please review below code.

I am not able to get a list for Members connecting at a common joint say "40".

Kindly help me with correct code.

Regards,

Sub BeamsATNode()
Dim NodeID As Long
Dim MemberList() As Long

Set objOpenStaad = GetObject(, "StaadPro.OpenSTAAD")

NodeID = 40

X = objOpenStaad.Geometry.GetNoOfBeamsConnectedAtNode(NodeID)

MsgBox X

'Dim Y As Variant = objOpenStaad.Geometry.GetSelectedBeams(40, MemberList)

'Dim Y As Variant = OSGeometryUI.GetBeamsConnectedAtNode(40, MemberList)

'Dim Y As Variant = OSGeometryUI.GetBeamsConnectedAtNode(40, &MemberList)

Y = OSGeometryUI.GetBeamsConnectedAtNode(40, MemberList)

MsgBox Y

Set objOpenStaad = Nothing
End Sub