Attribute VB_Name = "DicingOn"
Public Sub turnOnDicing()

Dim pGeometryEnv As IGeometryEnvironment3
Set pGeometryEnv = New GeometryEnvironment

pGeometryEnv.DicingEnabled = True

End Sub