Exporting point coordinates as XYZ data to Excel for SWX 2015

Hello, I have found a couple different macros that people have posted to do this however for some reason both of them output each of my sketch points twice.  I was wondering if this is particular to 2015.  I have tried eliminating the sketch so just the reference points exist but that doesn't seem to have an impact.

I have attached one of the macros as well as my part file and an excel output.

Appreciate any help on either fixing the issue with this macro or a more recent solution.

Thanks in advance,

Mike Einhorn