I'm using SolidWorks 2017, SP 5.0

I am trying to write a macro to the compare geometry of two files.

I have put the sample code from the help into my macro. (Copied and pasted)

http://help.solidworks.com/2017/english/api/swutilitiesapi/Compare_Geometry_VB6.htm

I am getting an error at this line:

Set swUtilCompGeom = swUtil.GetToolInterface(2, longStatus)

Here is the error box:

Here are my references:

I created a macro just copying and pasting the help file and it runs.

I have attached my macro that isn't working. I have added comments on where it seems to fail for me.

Thanks,

Carrie