Since you are Late Bound you don't have any type defined.
Use typename instead.
{code}
For Each entity In dbxDoc.ModelSpace
If TypeName(entity) = "IAcadBlockReference" Then
MsgBox(entity.name)
End If
Next entity
{code}
---------------------------
(defun botsbuildbots() (botsbuildbots))