Como cuento la cantidad de elementos de un array?

[albertovicat]

No necesitas contarlos, la función UBound(cDir) te entregará el máximo subíndice de ese arreglo. La cantidad de elementos dependerá de si el más bajo que tienes establecido es 0 ó 1. Por defecto es 0, pero puede establecerse que sea 1 mediante la instrucción Option Base, dada al principio del programa.
Si no estás seguro de cual es, la función LBound(cDir) te informará cual es el subíndice mínimo.
Entonces, la diferencia entre UBound(cDir) - LBound(cDir) + 1 será la cantidad de elementos que tiene cDir.
Por ejemplo: si UBound es 5 y LBound es 0, la cantidad de elementos es: 5 - 0 + 1 = 6 (pues también hay que incluir al elemento cero en la cuenta, por eso lo de "+ 1". Igualmente, si Option Base era 1, la cuenta te dará: 5 - 1 + 1 = 5, ya que ahora no existe el elemento cero.