Ради продуктивности можете добавить в данный файл строчки:
Sdvig = InputBox ("Сдвиг полосы:", "Значение: ", 3)
Sdvig2 = 0 - Sdvig
И можно задавать значение на сдвиг при запуске только еще изменить переменную N на Sdvig в If и Sdvig2 в Else.
Sdvig = InputBox ("Сдвиг полосы:", "Значение: ", 3)
Sdvig2 = 0 - Sdvig
И можно задавать значение на сдвиг при запуске только еще изменить переменную N на Sdvig в If и Sdvig2 в Else.