How to assign property HE200A to beam using VBA in openstaad

VBA syntax to assign HE200A section to member 3,4,6

Set objOpenStaad = GetObject(, "StaadPro.OpenSTAAD")
Dim Country As Long
Dim SectionName As String
Dim TypeSpec As Long
Dim member(2) As Long
Dim PropertyNo As Long
Dim AddSpec_1 As Long

Country = 6 'Dutch
SectionName = "HE200A"
TypeSpec = 0 'ST
AddSpec_1 = 0

PropertyNo = objOpenStaad.Property.CreateAnglePropertyFromTable(Country, SectionName, TypeSpec, AddSpec_1)
member(0) = 3
member(1) = 4
member(2) = 6

objOpenStaad.Property.AssignBeamProperty member, PropertyNo