Public Sub AddByMultiple( _
   ByVal NumberOfSurfaces As Long, _
   ByRef SurfaceArray() As Object, _
   ByRef NumberOfStitchFeatures As Long, _
   ByRef StitchFeatures() As Object, _
   Optional ByVal Heal As Variant, _
   Optional ByVal Tolerance As Variant _
)