هل يمكن التعرف على عدد أبعاد المصفوفة

Dim Size as long
Size = UBound(A)

لم اجربها على مصفوفات اكثر من بعد واحد

شكرا أخي [ راكان الحنيطي ]

ما ذكرته لا يحقق ما أريد ، وإنما يستخرج الحد الأقصى لحجم المصفوفة ، وهناك أمر يقابله يستخرج الحد الأدنى لها ، جرب الكود التالي

 
Private Sub Form_Load()
Dim b As String, a() As String
a = Split("aaaa-bbbb-cccc", "-")
MsgBox LBound(a) & "           " & UBound(a)
End Sub

ما أريده هو عدد الأبعاد ( أي : عدد الفواصل + 1 ) كما ذكرت سابقا A ذات بعدين و B ذات ثلاثة أبعاد

 
A(3,5)
B(3,5,7)

من يجيب مشكورا

سؤال محير بالفعل طب ولماذا تريد أن تعرف هذا ، ألم تقوم بتحديد ابعادها من قبل مع العلم انه لا يمكنك تقليل البعد فى وقت التشغيل و لكن يمكن الذياده و ستعرف حتما هذه الذياده .

على العموم أخبرنا بالسبب و ستخد من يشاركك و يوضح لك الحل .