progressbar without loop

I think I've searched the whole internet for a simple progressbar, but I can't find one that makes progress after a function/sub is finished.

I will demonstrate in the code below what I want. My knowledge in VBA is to basic too make something like this.

I have a form, with a button, when I click on the button he should execute this:

Sub program()progressbarform.showCall function1"set progressbar to 20%"Call funcion2"set progressbar to 40%"Call function3"set progressbar to 100%""Unload progressbar form"End Sub