Скрытый текст

Добрый день!

Скрытый текст
For i = 3 To iLr            intPrc = i * 100 / iLr            Application.StatusBar = "Выполняется расчёт -" & intPrc & "%"            .....операторы расчёта...........................            intPrc = Empty Next i

i и iLr имеют тип Integer, intPrc сначала тоже сделал Integer, потом менял на Current и  Double
iLr имеет значение 618
При i = 328, и соответственно при intPrc = 53,07443365695793 выскакивает ошибка Overflow (error 6)


Кто может подсказать, в чём проблема?