Perform Accelerated Life Testing Data Analysis on External Data Source/VBA

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

VBA Main ADS ALTADataSet ADS.AddStressDefinition(,,300) ADS.AddFailure_2(245, 1, 353) ADS.AddFailure_2(110, 1, 373) ADS.AddFailure_2(180, 1, 373) ADS.AddFailure_2(200, 1, 373) ADS.AddFailure_2(50, 1, 393) ADS.AddFailure_2(70, 1, 393) ADS.AddFailure_2(88, 1, 393) ADS.AddFailure_2(112, 1, 393) ADS.AddFailure_2(140, 1, 393) ADS.AddFailure_2(160, 1, 393) ADS.AddSuspension_2(250, 5, 353) ADS.AddSuspension_2(250, 3, 373) ADS.AnalysisSettings.ModelType = ALTASolverModel_Arrhenius ADS.AnalysisSettings.Distribution = ALTASolverDistribution_Weibull ADS.Calculate r Double r = ADS.FittedModel.Time(.90) MsgBox( & r)