Так надо было?  
 
Sub test()  
   a = Array(4, 6, 3, 9, 8)  
   n = UBound(a) - LBound(a) + 1  
   MsgBox n  
End Sub

Нет, это мы определим "длину" каждой размерности. А я хотел узнать, сколько всего этих размерностей.    
зы. неясно наверно выражаюсь, после праздников...  
Arr(1 to 5, 4 to 7, 2 to 9, 5 to 7)  
Как узнать, что массив четырехмерный.

Sub test()  
Dim Arr(4, 6, 3, 9)  
For i = 1 To 60  
On Error Resume Next  
tmp = UBound(Arr, i)  
If Err.Number > 0 Then MsgBox i - 1: Exit For:  
Next  
End Sub  
 
 
Михаил так правильней , а то дописал код в форум не проверив :)

Да, второй вариант то что надо. Спасибо!

Правда чуть изменить пришлось  
Dim Arr(4, 6, 3, 9, 8), i, tmp  
:)

И это логично :)  
Зачем пытаться выжать из "Запорожца" 150 км/ч, если можно пересесть на "Мерседес".

ЗапорожецЪ - моя любимая машина. Я себе в 1985 новый сделал, 965 модели ("горбатый").  
По проходимости, особенно если в нем пять здоровых мужиков едут - любой джип и рядом не стоял. :)

вот вам мерседец :)  
 
Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long  
Declare Sub GetMem4 Lib "msvbvm60.dll" (ByVal SrcPointer As Long, ByVal DstPointer As Long)  
 
Sub t()  
Dim ar(1, 2, 3, 4, 5, 6, 7)  
Dim p&, dm As Integer  
GetMem4 VarPtrArray(ar()), VarPtr(p)  
GetMem4 p, VarPtr(dm)  
 
msgbox "вы объявили "& p "измерений"  
End Sub

{quote}{login=слэн}{date=12.05.2011 03:47}{thema=}{post}а точнее( а главное безопаснее):  
 
Option Explicit  
Option Base 0  
Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long  
Declare Sub GetMem4 Lib "msvbvm60.dll" (ByVal SrcPointer As Long, ByVal DstPointer As Long)  
 
Sub t()  
Dim ar(1, 2, 3, 4, 5, 6, 7)  
Dim p&, dm(1) As Integer  
GetMem4 VarPtrArray(ar()), VarPtr(p)  
GetMem4 p, VarPtr(dm(0))  
MsgBox "вы объявили " & dm(0) & " измерений"  
End Sub{/post}{/quote}  
 
А вот как определить размерность 2-мерного массива ?  
DIM Mas(1 TO 7, 1 TO 10)' ?

{quote}{login=Михаил С.}{date=11.05.2011 09:54}{thema=Возможно ли определить размерность массива в VBA?}{post}Здравствуйте всем.  
Что-то заинтересовал меня такой вопрос:  
массив Arr(4,6,3,9, .. и так n значений)  
Возможно ли определить это самое n?    
То, что n не более 60 я знаю.  
Чисто ради любопытства.{/post}{/quote}  
Ответ:  
Function RazmerArray(A() As Integer) As Integer  
Dim k As Integer  
   On Error GoTo KOH  
   For k = 1 To 60  
       If UBound(A, k) > -1 Then RazmerArray = k  
   Next k  
KOH:  
End Function

вообще-то верхняя граница может быть любой...( в том числе и отрицательной)  
я б сделал так:  
 
Function RazmerArray(A) As Long  
Dim k As Long  
On Error GoTo KOH  
k = 1  
While UBound(A, k) >= LBound(A, k)  
 k = k + 1  
Wend  
KOH:  
RazmerArray = k - 1  
End Function  
   
Sub t()  
   Dim A '(1 To 1, 1 To 1)  
   Debug.Print RazmerArray(A)  
End Sub  
 
а в мерседеце просто непосредственно берется значение размерности из соответствующей структуры - без всяких циклов..