リテラル定数を指定してください。

定数の宣言で、(値が変わる) 変数式を代入しています。定数にランタイム コードを含めることはできません。

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

定数の宣言では式を使用しないようにします。

参照

VBScript の定数 | VBScript の定数 | Const ステートメント