GetLatColumnEndDeflection Not Working in VBA

Hi,

I'm trying to use the GetLatColumnEndDeflection in Excel VBA.  The following code makes it to the GetLatColumnEndDeflection command, then stops.  I have similar code using GetColForcesForLCase that works for the same element and load case just fine.  Any ideas what might be causing the code to stop at GetLatColumnEndDeflection?

Here is my relevant code:

Function RamGetLatColDeflection(dbname As String, StoryNum As Long, ColumnNum As Long, loadcase As String, Optional ForceComponent As String)

Dim lRetVal As Long
Dim i As Integer

Dim pdE As Double, pdPoissonsRation As Double, pdDensity As Double, pdSelfWeight As Double

Dim lLoadCase As Long
Dim dX_Disp_Top As Double, dY_Disp_Top As Double, dZ_Disp_Top As Double, dX_Rot_Top As Double, dY_Rot_Top As Double, dZ_Rot_Top As Double, dX_Disp_Bot As Double, dY_Disp_Bot As Double, dZ_Disp_Bot As Double, dX_Rot_Bot As Double, dY_Rot_Bot As Double, dZ_Rot_Bot As Double

Dim pdIMajGross As Double, pdIMinGross As Double, pdArea As Double, pdAvMaj As Double, pdAvMin As Double, pdJ As Double, pdCrackSectFactor As Double

Set RAMDataAccGeom = RAMDataAcc.GetDispInterfacePointerByEnum(IModelGeometry_INT)
Set RAMDataAccForce = RAMDataAcc.GetDispInterfacePointerByEnum(IForces_INT)
Set RAMDataAccMemberData = RAMDataAcc.GetDispInterfacePointerByEnum(IMemberData_INT)

RAMDataAccGeom.GetColumnGeomInfo ColumnNum, plBeamLabel, peGravOrLat, peMaterial, _
pdX1, pdY1, pdZ1, pdX2, pdY2, pdZ2, pdOrientation, plAtFnd

RAMDataAccMemberData.GetSteelMemberMatlProps ColumnNum, pdE, pdPoissonsRation, pdDensity, pdSelfWeight, plAtFnd
RAMDataAccMemberData.GetMemberSectionPropInfo ColumnNum, pdIMajGross, pdIMinGross, pdArea, pdAvMaj, pdAvMin, pdJ, pdCrackSectFactor

If peGravOrLat = MemberIsGravity Then
' retrieve RAMFrame force for lateral member
lLoadCase = FindLatLoadCase(loadcase) ' custom function
If lLoadCase = -1 Then
RamGetColForceDA = "Could Not Find Load Case"
Else

' stops running on next line, ColumnNum and lLoadCase passed are valid
RAMDataAccForce.GetColForcesForLCase ColumnNum, lLoadCase, pdAxial, pdMajMomI, pdMinMomI, pdMajShearI, pdMinShearI, pdTorsionI, pdMajMomJ, pdMinMomJ, pdMajShearJ, pdMinShearJ, pdTorsionJ

End If
End If


End Function

Thanks,

Craig