S003 範囲外の添字です

配列にアクセスしているとき、サブスクリプト (添字) が与えられた配列の定義された次元と一致していないか、サブスクリプトが与えられた配列の境界と一致していないかのいずれかです。

サブスクリプトが正しければ、ReDim ステートメントを使用して配列の次元か境界を再定義してください。
配列の次元と境界が正しければ、サブスクリプトを再指定しなければなりません。以下に例を示します。

Dim TiArr(-1 To 1)
Print TiArr(0, 0)         'Error. Array is defined as having one
                          'dimension, and is being accessed as a
                          'two-dimensional array.
Print TiArr(-2)           'Error. The specified subscript falls outside of
                          'the array's defined bounds.