'Routine to determine the probability of failure given the mean and standard deviation of the capacity and demand.

RMinusQ = WorksheetFunction.NormSDist(-(RMean - QMean) / (RStDev ^ 2 + QStDev ^ 2) ^ 0.5)