Ecco ... vedi ... il problema e' evidente ...

Se inserisci la riga

ProgressBar1.Value = ProgressBar1.Value + 0.01

all'interno di 6 cicli nidificati che la chiamano piu' di 90000 volte, porti il suo valore eguale a piu' di 900, superiore a 100 e quindi non lecito ...

Per risolvere devi inserire le righe

ProgressBar1.Max = 1000
ProgressBar1.Value = 0

prima della prima For ...