AcadExternalReference

I have a routine as follows
Dim ObjXRef As AcadExternalReference

For Each ObjXRef In ThisDrawing.ModelSpace.getxre
PT1 = ObjXRef.InsertionPoint
StrTemp = StrTemp & "MSPACE" & ObjXRef.Layer & ObjXRef.Name & ";" & PT1(0) & ";" & PT1(1) &
";"
Next ObjXRef
this is to make a ; delimited file of the xrefs in model space and the insertion point,(z is at zero
for the drawing in this company)

I get a type mismatch error.
What is the trick. I do this all the time for a selection set and block refrences.

do I have to dim ObjXRef as an AcadEntity and then check the type to see if it is an xref?
Is there a better way?
PS I know there are xrefs..

 

Try this instead...

Public Sub Test ()
Dim objEnt As AcadEntity
Dim ObjXRef As AcadExternalReference
Dim PT1 As Variant

For Each objEnt In ThisDrawing.ModelSpace
If TypeOf objEnt Is AcadExternalReference Then
Set ObjXRef = objEnt
PT1 = ObjXRef.InsertionPoint
Debug.Print "MSPACE" & ObjXRef.Layer & ObjXRef.Name & ";" &
PT1(0) & ";" & PT1(1) & ";"
End If
Next objEnt
End Sub