El progressbar maneja 3 valores:
Minimo(MIN), Maximo(MAX) y el valor (VALUE)
puedes establecer el minimo y maximo en las propiedades del control
o lo puedes hacer de manera dinámica
Ej: (agrega un boton y el progress bar)
Sub command1_click()
Dim tamaño(300) ' etapas o tamaño del progressbar
Dim i ' Contador
' Min = Al menor valor de "tamaño" en este caso 0
progressbar1.min = Lbound(tamaño)
' Max = Al mayor valor de "tamaño" en este caso 300
progressbar1.max = Ubound(tamaño)
' Agrega cada una de las etapas desde 0(Lbound) hasta 300(Ubound)
for i = Lbound(tamaño) to Ubound (tamaño)
progressbar1.value = i
next
End sub
Espero te muestre como funciona
