I002 不正な BYVAL です

このエラーの原因として、次のことが考えられます。

ByVal キーワードが配列要素のサブスクリプトの参照で指定されています。
ByVal キーワードを削除してください。
ByVal キーワードが ReDim ステートメントの配列の境界の式に指定されています。
ByVal キーワードを削除してください。