معرفة عدد عناصر المصفوفة

السلام عليكم وكل عام وانتم بخير وتقبل الله منا ومنكم صالح الأعمال.

بحثت عن دالة ترجع عدد عناصر المصفوفة عندما يتم تحديد عدد العناصر أثناء عمل البرنامج ويكون العدد غير معلوم للمبرمج .

ولتتضح الصورة مثلا الدالة Split يتم تزويدها بالسلسة المراد تقسيمها والمصفوفة التي تضع بها الكلمات المقسمة من السلسلة الأصلية مثلا

Dim St() as String
Dim Mystring as String="Hi arab team"
St=Split(Mystring,"  ")

فهنا تكون النتيجة في المصفوفة St وتكون عناصر المصفوفة هي St(0) ="Hi" و St(1)="arab" و St(2)="team" وهنا عدد العناصر هو 3 ثلاثة عناصر وهو معروف لأن السلسة معروفة . أما إذا كانت السلسة قيمة مربع نص يدخله المستخدم فإن عدد العناصر يعتمد على السلسة في مربع النص . أنا قمت بعمل دالة ترجع عدد العناصر

Private Function ArraySize(Arr() As String) As Integer
	On Error GoTo EndFunc
	For i = 0 To 100000
	   Iret = Arr(i)
	Next i
EndFunc:
	ArraySize = i
End Function

سؤالي هو هل هناك دالة جاهزة ترجع عدد عناصر مصفوفة ما . وماهي هذه الدالة.

وآسف على الإطالة . تحياتي ....،،،،