Public Function AddFiniteSync( _
   ByVal NumberOfProfiles As Long, _
   ByRef ProfileArray() As Object, _
   ByVal RefAxis As Object, _
   Optional ByVal ProfilePlaneSide As Variant, _
   Optional ByVal AngleofRevolution As Variant, _
   Optional ByVal WantEndCaps As Boolean = False _
) As RevolvedSurface