VBA to calculate critical path length

I'm adding to our homegrown schedule analyse tool and am looking for a formula that I can use to calculate the critical path length and subsequently the Critical Path Length Index. All of the references I've found give some examples with numbers for it (CPL), but they don't include a description as to how the number(s) was derived. 

Any thoughts?  thanks in advance for any suggestions.

Dan