¿Cómo generar una barra de progreso?

Private Sub UserForm_Activate()
Dim Porcentaje As Double
'1
Porcentaje = 0
Me.Caption = Format(Porcentaje, "0%")
Me.Barra.Width = Porcentaje * Me.Frame1.Width
DoEvents
Call Corte1_1
'2
Call Corte1_2
Porcentaje = 0.111111111111111 * 1
Me.Caption = Format(Porcentaje, "0%")
Me.Barra.Width = Porcentaje * Me.Frame1.Width
DoEvents
'3
Call Corte1_3
Porcentaje = 0.111111111111111 * 3
Me.Caption = Format(Porcentaje, "0%")
Me.Barra.Width = Porcentaje * Me.Frame1.Width
DoEvents
'4
Call Corte1_4
Porcentaje = 0.111111111111111 * 4
Me.Caption = Format(Porcentaje, "0%")
Me.Barra.Width = Porcentaje * Me.Frame1.Width
DoEvents
'5
Call Corte1_5
Porcentaje = 0.111111111111111 * 5
Me.Caption = Format(Porcentaje, "0%")
Me.Barra.Width = Porcentaje * Me.Frame1.Width
DoEvents
'6
Call Corte1_6
Porcentaje = 0.111111111111111 * 6
Me.Caption = Format(Porcentaje, "0%")
Me.Barra.Width = Porcentaje * Me.Frame1.Width
DoEvents
'7
Call Corte1_7
Porcentaje = 0.111111111111111 * 7
Me.Caption = Format(Porcentaje, "0%")
Me.Barra.Width = Porcentaje * Me.Frame1.Width
DoEvents
'8
Call Corte1_8
Porcentaje = 0.111111111111111 * 8
Me.Caption = Format(Porcentaje, "0%")
Me.Barra.Width = Porcentaje * Me.Frame1.Width
DoEvents
'9
Call Corte1_9
Porcentaje = 0.111111111111111 * 9
Me.Caption = Format(Porcentaje, "0%")
Me.Barra.Width = Porcentaje * Me.Frame1.Width
DoEvents
MsgBox "Ha terminado el proceso de Generación de Semáforo", vbOKOnly, "Monitor de Embarques"
Sheets("Primer Corte").Visible = False
End
End Sub

Me.barra -> esa es la barra que va a crecer
Tienes que dividir tu código completo en 9 partes o 'n' partes, lo que hace el código es dividir el valor de 1 sobre tus partes para que al pasar al siguiente multiplique y crezca la barra, podrás fijarte que después de cada 'doevents' siguen un 'Call', que es como yo dividí mi barra ya que mi proceso es muy pesado.
me.frame1 = a un frame que le coloqué para que se vea bonito... No pasa nada si decides no usarlo.
Te respondo por acá, mañana paso a dejarlo en tu pregunta para que me ayudes a puntuar y subir mi reputación.