Perform Accelerated Life Testing Data Analysis with Stress Profiles/VBA

Tutorial: Accelerated Life Testing Data Analysis - Stress Profiles
Below is the VBA version of the tutorial.

VBA Main myProfile cProfile myProfile.Name = myProfile.ProfileType = ProfileTypeEnum_Stress myProfile.IsCyclical = False segment ProfileSegment listofsegments(3) ProfileSegment segment = ProfileSegment segment.SegmentEnd = 200 segment.Value = 124 listofsegments(0) = segment segment = ProfileSegment segment.SegmentEnd = 300 segment.Value = 175 listofsegments(1) = segment segment = ProfileSegment segment.SegmentEnd = 350 segment.Value = 200 listofsegments(2) = segment segment = ProfileSegment segment.SegmentEnd = 375 segment.Value = 250 listofsegments(3) = segment myProfile.SetSegments listofsegments ADS ALTADataSet ADS.AddStressProfile(myProfile) ADS.AddStressDefinition(, ALTASolverLSR_Power, 100) ADS.AddFailure_2(252, 1, myProfile) ADS.AddFailure_2(280, 1, myProfile) ADS.AddFailure_2(320, 1, myProfile) ADS.AddFailure_2(335, 1, myProfile) ADS.AddFailure_2(354, 1, myProfile) ADS.AddFailure_2(361, 1, myProfile) ADS.AddFailure_2(362, 1, myProfile) ADS.AddFailure_2(368, 1, myProfile) ADS.AddSuspension_2(328, 1, myProfile) ADS.AddSuspension_2(375, 3, myProfile) ADS.AnalysisSettings.ModelType = ALTASolverModel_CumDamage ADS.AnalysisSettings.Distribution = ALTASolverDistribution_Weibull ADS.Calculate r Double r = ADS.FittedModel.Time(.99) MsgBox( & r)