[求助]：各位高手帮忙看看这段程序吧！

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*-*9