[求助]：请各位大侠帮忙看看这段程序吧！

evaporated

这是小弟自编的炸开图形中所有块参照的程序。
算法是土了些，可是感觉没有错误啊。
某些块参照编译器总是报错：autocad输入错误。
图里面是没有无法炸开的块参照的。
编译器报错的那几个块参照，我用explode命令都炸的开啊。
请各位高手指点指点，小弟到底错在哪里吧！
或者给段相似功能的源码让小弟学习也行啊。
不胜感激！
Function ExplodeAllRef() As Boolean

Dim AcadObject1 As AcadEntity
Dim flag As Boolean

While flag = True
flag = False
For Each AcadObject1 In ThisDrawing.ModelSpace
If AcadObject1.ObjectName = "AcDbBlockReference" Then
flag = True
AcadObject1.Explode
End If
Next
Wend
End Function