Глюк при попытке создания Assemby Hole

[m-shok]

Dim feas As AssemblyFeatures
Set feas = mainProduct.GetTechnologicalObject("AssemblyFeatures")
Dim ah As AssemblyHole
Set ah = feas.AddAssemblyHole(sc, skelProduct, Diam, skelProduct)

При выполнении последней строчки Катька вылетает "Click OK to terminate"
Используется V5R18 SP5