Пересечение блоков

Dim explodedObjects As Variant
Dim I As Integer, j As Integer, k As Integer
    Dim str As String
    explodedObjects = pbl.Explode
    Dim n As Integer
    For n = 0 To UBound(explodedObjects)
        explodedObjects(n).Update
        intPoints =explodedObjects(n).IntersectWith(pbl1, acExtendNone)
        If VarType(intPoints) <> vbEmpty Then
        For I = LBound(intPoints) To UBound(intPoints)
            str = "Intersection Point[" & k & "] is: " & intPoints(j) & "," & intPoints(j + 1) & "," & intPoints(j + 2)
            MsgBox str, , "IntersectWith"
            str = ""
            I = I + 2
            j = j + 3
            k = k + 1
        Next
    End If
        explodedObjects(n).Delete
    Next