OpenSTAAD | Property.CreateMemberPartialReleaseSpec

Greetings STAAD Users,

I am creating a Visual Basic Macro using the Properties Command CreateMemberPartialReleaseSpec.

After a couple of tries, I have being getting trouble with this command. See the following VBA.

A portion of the macro is the following:

'************************************************************************
'
'                       START MEMBER Partial Release
'
'************************************************************************

Dim Spec1 As Long

'Set the flags for releases
Dim DOFRelease1(0 To 2) As Integer

For i = 0 To 2
    DOFRelease1(i) = 1
Next i

'Set moment release factors if any
Dim MPFactor1(0 To 2) As Double

For i = 0 To 2
    MPFactor1(i) = 0.99
Next i

'Create specification
Spec1 = objOpenSTAAD.Property.CreateMemberPartialReleaseSpec(0, DOFRelease1(1), MPFactor1(1))

'Assign partial release to tTAShe members
For i = 1 To RowsW
        objOpenSTAAD.Property.AssignBeamProperty webs(i, 1), Spec1
Next i

When I run the macro OpenSTAAD creates the partial release in the STAAD file, but it does not assign the specs to the members.

Any suggestions?