The UBound function does just what you want. UBound(tSociety,1) gives the
first dimension, UBound(tSociety,2) gives the second.

"JMG" wrote:

Any tip to test the lenght of an array ?


nLenArray = 100
nColArray = 4
Redim tSociety(nLenArray,nColArray)

For x = 1 to nLenArray
For j = 1 to nColArray
next
next


Why not possible
for x = 1 to len(tSociety()) or something similar?