4. mesajımda tam tersiydi ilk başta boş olur buldukça ekler alternatif yöntemler

dim TamSay as string

Tamsay=""

if instr(Tamsay, "," & int(sayınız) & ",")=0 then

fonksiyonu Çağı

tamsay=Tamsay & "," & int(sayınız) & ","

end if

Teşekkürler bu güzel oldu
Böylece progressbar genişliğinden ve kayıt sayısından bağımsız olarak % şeklinde ilerlemeyi gösterecek 
Hemde progressbar titreyip durmayacak toplamda ne olursa olsun 100 kez yenilenecek

denediniz mi sorunsuz çalıştı mı?

Şu anda deneyemiyorum ama eminim çalışır