VBA Code for Logistic Regression

I'm searching for VBA code that can read data from Excel worksheet, calculate the logistic regression equation using an IRLS algorithm, and output the equation (intercept and coefficient(s)) to the worksheet.

The 'FreeVBcode' page on DevX has a posting called 'Logistic Regression Demo in Excel' that accomplishes what I need, but by its own admission uses inefficient coding that takes too long to execute for larger problems. I'd very much appreciate the efficient version of this code.