Perform Accelerated Life Testing Data Analysis with Stress Profiles/VBA 10

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

VBA Main sp ALTAStressProfile sp.AddSegment(200, 125) sp.AddSegment(300, 175) sp.AddSegment(350, 200) sp.AddSegment(375, 250) sp.RepeatCycle = False ADS ALTADataSet ADS.AddStressProfile(sp) ADS.AddStressDefinition(, ALTASolverLSR_Power, 100) ADS.AddFailure_2(252, 1, sp) ADS.AddFailure_2(280, 1, sp) ADS.AddFailure_2(320, 1, sp) ADS.AddFailure_2(335, 1, sp) ADS.AddFailure_2(354, 1, sp) ADS.AddFailure_2(361, 1, sp) ADS.AddFailure_2(362, 1, sp) ADS.AddFailure_2(368, 1, sp) ADS.AddSuspension_2(328, 1, sp) ADS.AddSuspension_2(375, 3, sp) ADS.AnalysisSettings.ModelType = ALTASolverModel_CumDamage ADS.AnalysisSettings.Distribution = ALTASolverDistribution_Weibull ADS.Calculate r Double r = ADS.FittedModel.Time(.99) MsgBox( & r)