Public Function AddFinite( _
   ByVal NumberOfProfiles As Long, _
   ByRef ProfileArray() As Object, _
   ByVal RefAxis As RefAxis, _
   Optional ByVal ProfilePlaneSide As Variant, _
   Optional ByVal AngleofRevolution As Variant _
) As WeldBeadByRevolvedProtrusion