Vba and Internet Explorer

[nyqpblcTuk]

Ребята привет, не так давно занимаюсь vba, по работе необходимо было упростить себе и многим менеджерам работу.
Написал вот так вот скрипт.

Проблема в IE!!!

в 8 версии, все ок работает

в 11 версии приходится ставить сайт в надежные узлы, только тогда работает.
Если не ставить, тогда скрипт останавливается на

While IE.ReadyState <> 4
DoEvents
Wend

А вот если 8 версию поставить в надежные узлы, он перестает работать.
С такой ошибкой.
Ошибка.jpg

Сам файл : 123.rar

Подскажите какое-нибудь решение для данной проблемы.
В vba еще не силен...

Гуру просьба лояльно отнестись к коду, если что-то через опу сделано.