Grazie per la risposta
Ho provato ed ho trovato qualche difficoltà.

Questo è il mio codice applicato ad un pulsante

Form1.ProgressBar1.Min = 5
Form1.ProgressBar1.Max = 20
Form1.Show
Call Prova
UserForm1.Hide

all'interno della sub Prova inserisco


for i = 5 to 20
Form1.ProgressBar1.Value = i
Next i


So che sto sbagliando... ma dove ?? :P
grazie