Public Sub RecognizeAndCreateChamfers( _
   ByRef NumberOfChamferChains As Long, _
   ByRef ChamferChains() As Object, _
   Optional ByVal RecognitionBody As Object, _
   Optional ByVal NumberofRequiredChmafersFaces As Long = 0, _
   Optional ByRef RequiredChmafersFacesArray() As Object _
)