UBound

UBound( 配列 , [省略可]配列のインデックス )

Option Explicit

Dim ary(9) '10個の配列.
Dim loop_cnt
Dim value
Dim view_data

' 値を設定.
For loop_cnt = 0 To UBound( ary )
    ary( loop_cnt ) = loop_cnt
Next

For Each value In ary '要素を結合して表示.
    view_data = view_data & value & " "
Next

WScript.Echo view_data  ' 0 1 2 3 4 5 6 7 8 9

Dim ary2(1 , 2 , 3) '2個、3個、4個の配列.

WScript.Echo UBound( ary2 , 1 )  ' 1
WScript.Echo UBound( ary2 , 2 )  ' 2
WScript.Echo UBound( ary2 , 3 )  ' 3

配列のサイズを取得できます。