VBA Code for a Distribution

Hi,

I am trying to create a triangular distribution function in Excel VBA with three parameters : a, b, and c. The parameters a and c are the minimum and maximum possible values, and b is the most likely value. The method is :
Calculate d = (b-a)/(c-a)
Generate a random number N between 0 and 1
If N <= d, then a + (c-a)*sqr(dN) is the required random number.
If N > d, then a + (c-a) [1 - sqr((1-d)(1-N)) is the required random number.

Any help will be appreciated

Moroformat

First, verify the math in the following sample sheet. If it is correct, then we can turn this into a UDF, but I need to make sure the formula is working correctly first.

See http://www.excelforum.com/excel-gene...generator.html.

Note that a and b are the min and max, and c is the mode.