arrays

[u_goldman]

Si te refieres a conocer la dimensión de un vector N dimensional, o una matríz, te dejo esta función, no recuerdo cuantas dimensiones soporta VB, me parece que 18, si no es eso solo habrá que cambiar el control de flujo del For

Function mide(mi_matriz, x)
For i=1 to 18
On error resume next
y= Ubound(mi_matriz, i)
If not err.Description= "Subscript out of range" Then
mide= i
Else
mide = i - 1
Exit For
End If
Next
End Function

Dim matriz(1,1,1,1,6)

cuenta_dimension = mide(matriz,10)
Response.Write(cuenta_dimension)

Salu2,