Dim kacadet As Integer

 kacadet = kacadet + 1

Me.ProgressBar3.Value = Round((kacadet) * 100 / sonsatirno, 0)

bu satır hata veriyor. Döngü var . Excelden veri alıyor. Hata kodunu ekliyorum

olası 2 hata geliyor aklıma
1 - sonsatirno= 0 olması
ve
2 - kacadet >100 olması
bu 2 kontrolü sağladınız mı?
hata verdğinde bu değişkenler hangi değerleri alıyor?