OpenSTAAD function "Output.GetMaxBendingMoments " VBA not working properly..!

To get the maximum and minimum bending moment in a beam i wrote a code as follows:

Private Sub CommandButton2_Click()
Dim OpenSTAAD As Object
Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")
Dim lMemberNo As Long
Dim lEnd As Long
Dim lLoadcase As Long
Dim dForceArray(6) As Double
Dim NOM As Integer
Dim NOLC As Integer
Dim sDir As String
Dim Dmin As Double
Dim Dminpos As Double
Dim Dmax As Double
Dim Dmaxpos As Double
Dim dlength As Long
Dim lForceArray(6) As Double
NOLC1 = Cells(1, 2)
NOLC2 = Cells(1, 3)
NOM = Cells(1, 1)
sDir = Mz
For i = 1 To NOM
lMemberNo = Cells(2 + i, 1)
Cells(4 + (i - 1) * NOLC1, 23) = lMemberNo
Next i
'ULS
For i = 1 To NOM
For j = 1 To NOLC1
lLoadcase = Cells(2 + j, 2)
Cells(3 + j + (i - 1) * NOLC1, 25) = lLoadcase
Next j
Next i
For i = 1 To NOM
lMemberNo = Cells(2 + i, 1)
For j = 1 To NOLC1
lLoadcase = Cells(2 + j, 2)
objOpenSTAAD.Output.GetIntermediateMemberForcesAtDistance lMemberNo, 0.642, lLoadcase, lForceArray
Cells((3 + j) + (i - 1) * NOLC1, 24) = lForceArray(5)
Next j
For j = 1 To NOLC1
lLoadcase = Cells(2 + j, 2)
objOpenSTAAD.Output.GetMinMaxBendingMoment lMemberNo, sDir, lLoadcase, Dmin, Dminpos, Dmax, Dmaxpos
Cells((3 + j) + (i - 1) * NOLC1, 27) = Dmax
Next j
Next i
Set objOpenSTAAD = Nothing
End Sub

But I'm getting the very small values (E-206) for Maximum moments.

Can anyone point out the error in the above code...!