Error when attempting to use surface functions

[OceanaPolynom]

I want to use VBA to interpolate elevations from an existing surface object. I think that it should look like this:

elevation=oSurface.FindElevationAtXY(xi,yi)

When I run the code I get an error message at this line:

Set AeccApp = ThisDrawing.Application.GetInterfaceObject("AeccXUiLand.AeccApplication")

The error is "problem with loading application"

I have attached 2 jpg files, one showing the code and the error message, the other showing the references that I selected.  I am running C3D 2016 on Windows 7 Professional 64 bit

Thank you

John

[Jeff_M]

Pretty sure you need to include the AeccApplication version:
"AeccXUiLand.AeccApplication.10.5"

[OceanaPolynom · Accepted solution]

Thanks for your help.  There doesn't seem to be anything else That I can add.  I have attached a third jpg (Unmarked References.jpg) that shows the relevant area of the References window.

Thank you

John

[hippe013 · Accepted solution]

I believe what @Jeff_M is saying is try: 

Set AeccApp = ThisDrawing.Application.GetInterfaceObject("AeccXUiLand.AeccApplication.10.5")

[OceanaPolynom]

Thanks a lot, this solved the problem.

John