openstaad- Get Member End Forces

Hi!

I just want to ask your assistance on  what is wrong/lacking in my vba script for getting member end forces.

Sub Get_Memb_Endforces()

Dim i, j, k, l As Integer
'
Dim Member_count As Integer
Dim MemberNo() As Long
'
Dim LC_No As Integer
Dim lPrimaryLoadCaseNumbersArray() As Long
'
Dim lend(2) As Long
'
Dim dForceArray(6) As Long
'

Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
'
Member_count = objOpenSTAAD.geometry.GetMemberCount
ReDim MemberNo(0 To Member_count) As Long
objOpenSTAAD.geometry.GetBeamList MemberNo
'
LC_No = objOpenSTAAD.Load.GetPrimaryLoadCaseCount
ReDim lPrimaryLoadCaseNumbersArray(0 To LC_No) As Long
objOpenSTAAD.Load.GetPrimaryLoadCaseNumbers lPrimaryLoadCaseNumbersArray
'
For i = 0 To member_coount
    For j = 0 To LC_No
    For k = 1 To 2
   
    'I got error on the following line
    objOpenSTAAD.Output.GetMemberEndForces MemberNo(i - 1), lPrimaryLoadCaseNumbersArray(j - 1), lend(k - 1), dForceArray(l - 1)
   
   
   
   
   Cells(19 + j + (i - 1) * 2 * LC_No, 1) = MemberNo(i - 1)
   Cells(19 + j + (i - 1) * 2 * LC_No, 2) = lPrimaryLoadCaseNumbersArray(j - 1)
   Cells(19 + j + (i - 1) * 2 * LC_No, 3) = lend(k - 1)
  
   For l = 0 To 6
  
   Cells(19 + j + (i - 1) * 2 * LC_No, 3 + l) = dForceArray(l - 1)
  
Next l
Next k
Next j
Next i

End Sub

Hoping for your response.

Thank you,

Mark