Как исправить скрипт при переходе с W7 на W10?

[fdg]

В файле маткада (Mathcad v15.0 (M020 [MC15_M020_20121127]) имеется выпадающее меню, которое использует для своей работы VBS, оно каждому выбранному имени присваивает заданное значение. Меню работало в XP и W7, при открытии файла маткад в W10 сразу (без клика на меню) появляется ошибка.
Как исправить код меню, чтобы заработало в W10?

Примечания:
1. В W7 и W10 маткад одной версии с одного дистрибутива.
2. При работе в W7 для корректной работы требуется менять умолчательные параметры безопасности скриптов.

Код: Выделить всё

Sub ScriptObjEvent_Start()
End Sub
Sub ScriptObjEvent_Exec(Inputs,Outputs)

Dim ValueArray(4)
Dim ListArray(3)

ValueArray(0) = 8.5
ValueArray(1) = 11.5
ValueArray(2) = 14.5
ValueArray(3) = 17

ListArray(0) = "В15"
ListArray(1) = "В20"
ListArray(2) = "В25"
ListArray(3) = "В30"

ScriptObj.List() = ListArray
If (ScriptObj.ListIndex < 0) Then Outputs(0).Value = 0 Else Outputs(0).Value = ValueArray(ScriptObj.ListIndex)
End Sub
Sub ScriptObjEvent_Stop()
Rem TODO: Add your code here
End Sub