整数型の定数がありません。

Dim ステートメントで定数を使用せずに配列を作成しようとしました。VBScript では、Dim ステートメントのサイズの値は定数で指定する必要があります。次に例を示します。

Dim a(10)   ' は有効です。
Dim a(x)    ' は無効です。
Dim a(1=2)  ' は無効です。

このエラーを解決するには

ReDim ステートメントを使用します。

参照

Dim ステートメント | ReDim ステートメント