ObjOPENSTAAD.Command.CreateSteelDesignCommand Command not functioning as expected

Hi,

I am trying to use the ObjOPENSTAAD.Command.CreateSteelDesignCommand command to assign the UNB, UNT, LZ and LY values to members. 

I believe it is an issue with the  CInt(0) and CStr(0) values I am putting into the command as the UNB etc. get generated but they do not get populated with beam elements or the UNB values, see image below. 

Relevant parts of the code below:

Dim BayLength As Double

Dim STAADDesignCode As Long

Dim UNB As Long ' To be set as the Length of each Bay - Unsupported Length of Bottom extreme Fibre for Lateral Torsional Buckling
Dim UNT As Long ' To be set as the Length of each Bay - Unsupported Length of Top extreme Fibre for Lateral Torsional Buckling
Dim LZ As Long ' Full Length of Rafter x End restraint factor, previously 0.85 for primary rafters and 0.9 for secondary and tertiary rafters - Length of local Z Axis for slenderness checks
Dim LY As Long ' To be set as the Length of each Bay - Length of local Y Axis for slenderness checks

STAADDesignCode = 1002

UNB = 9660
UNT = 9650
LZ = 9140
LY = 9130

RafterGroups(0) = Primary_Rafters()
RafterGroups(1) = Secondary_Rafters()
RafterGroups(2) = Tertiary_Rafters()

BayLength = 4

ObjOPENSTAAD.Command.CreateSteelDesignCommand STAADDesignCode, UNB, CInt(0), BayLength, CStr(0), RafterGroups(i)

Please advise.