Perform Life Data Analysis on External Data Source/VBA

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

VBA Main WDS WeibullDataSet WDS.AddFailure(16, 1) WDS.AddFailure(34, 1) WDS.AddFailure(53, 1) WDS.AddFailure(75, 1) WDS.AddFailure(93, 1) WDS.AddSuspension(120, 5) WDS.AnalysisSettings.Distribution = WeibullSolverDistribution_Weibull WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters_MS_2Parameter WDS.AnalysisSettings.Analysis = WeibullSolverMethod_RRX WDS.Calculate r Double r = WDS.FittedModel.unreliability(226) MsgBox( & r)