Всем добрый день !

Я пытаюсь сделать калькулятор для страхования имущества и у меня возникла небольшая проблемка. Когда я выбираю в форме ГРУПИ МАЙНА(UserForm4) определенное имущество, а потом в форме ПОТРІБНЕ ПОКРИТТЯ (UserForm5) и нажимаю на кнопку РОЗРАХУВАТИ ТАРИФ должны подтягиваться определенные коэфициенты для расчета тарифа. Я понимаю, что самый рациональный способ, что бы это осуществить сделать цикл, но к большому сожалению Я НЕ МОГУ написать такой цикл. Поэтому я придумал как это сделать через IF. У меня всего 40 видов имущества и 8 видов рисков. И уже на 10 виде имущества при нажатии на кнопку РОЗРАХУВАТИ ТАРИФ VBA выдает следущее сообщение - "Procedure too Large". Подскажите пожалуйста как можно обойти этот момент.

Заранее спасибо.