Ошибка при повторном запуске ProgressBar

Private Sub pop5_Click()
Static Progress As Integer
StatusBar1.Panels(5) = (ProgressBar1.Value / ProgressBar1.Max * 100 + 100) & "%"
Progress = (Progress + 1) Mod 200
   'ProgressBar1.Value = Progress -  ОШИБКА ПРОИСХОДИТ ЗДЕСЬ
If ProgressBar1 = Max Then
End If
End Sub

       PB.min=0
       PB.max=100
 
       For i=1 to N  ' глобальный цикл, выполнение которого отражает прогресс-бар
 
            z#=100*CDbl(i)/Cdbl(N)
            PB.value=z#
 
            ' бла-бла-бла
 
       Next i

Private Sub Command1_Click()
Static Progress As Integer
If ProgressBar1.Value <> ProgressBar1.Max Then
    Label1 = (ProgressBar1.Value / ProgressBar1.Max * 100) & "%"
    Progress = (Progress + 1)
    ProgressBar1.Value = Progress
End If
End Sub
 
Private Sub Command2_Click()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
 Dim N As Integer
 N = 1234 ' любое максимальное число
       For i = 1 To N ' 
             z = 100 * CDbl(i) / CDbl(N)
            ProgressBar1.Value = z
        Next i
End Sub

Private Sub Command3_Click()
ProgressBar1.Min = 0
    ProgressBar1.Max = 100
  
       For i = 1 To N ' глобальный цикл, выполнение которого отражает прогресс-бар
 
            z# = 100 * CDbl(i) / CDbl(N)
         ProgressBar1.Value = z#
 
           MsgBox "выполнено"
 
       Next i
End Sub

'открывается файл
тынс-тынс
'пошел процес прогресбар
ProgressBar1.Min = 0
ProgressBar1.Max = 100
 Dim N As Integer
 N = 1000 ' любое максимальное число
       For I = 1 To N '
             z = 100 * CDbl(I) / CDbl(N)
            ProgressBar1.Value = z
            StatusBar1.Panels(5) = (ProgressBar1.Value / ProgressBar1.Max * 100) & "%"
        Next I
'закончился процесс
      ProgressBar1.Value = False
'закрывается файл
тынс-тынс
MsgBox "Готово!", vbInformation, "ИНФОРМАЦИЯ!"