識別子が長すぎます。

変数名または関数名が長すぎます。半角で最大 255 文字までです。

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

名前を短くします。

参照

VBScript の変数 | VBScript のデータ型 | Dim ステートメント | Public ステートメント | Private ステートメント