VBA：ユーザーフォームの実行中にもう1つのユーザーフォームで進捗を表示したい

Question

実現したいこと

時間のかかる処理をする際に分かりやすく進捗を表示したいです。

処理したいコードにForやWithを複数記述しているため、下記にしたのですが正常に進捗と％が＝になりません。
（100%になっても処理が続いてしまう）
下記のどの部分に処理したいコードを記述すれば進捗と％が＝になるでしょうか。

該当のソースコード

Private Sub CommandButton1_Click()

    UserForm1.Hide
    Dim i As Long
    UserForm2.Show vbModeless
    
    For i = 1 To 30000
    With UserForm2
        .ProgressBar1.Value = i
        .パーセント.Caption = Int(i / 30000 * 100) & "%"
        .Repaint
    End With
    Next i

    ここに処理するコードを記載しています。

    UserForm2.Hide
    Unload UserForm2

End Sub

Answer 1

「時間のかかる処理」とは具体的になんでしょうか。
現状のコードだと、
ForループでProgressBarを100％まで進捗させてから、処理するコードを実行しています。

何工程もある処理、あるいは、繰り返し処理なら、その処理間に、ProgressBarを進捗させるコードを挿入することになりますが、1工程(1コマンド)の処理なら、VBAでは無理です。

    Dim cnt As Long
    cnt = 100 '繰り返し数    

    With UserForm2
          .ProgressBar1.Min = 0
          .ProgressBar1.Max = cnt


        For i = 1 To cnt

             'ここに繰り返し処理を記述

            .ProgressBar1.Value = i
            .パーセント.Caption = Int(i / cnt * 100) & "%"
            .Repaint
        Next i
    End With

Answer 2

これでどうでしょうか。

    With UserForm2
        .ProgressBar1.Value = i - 1
        .パーセント.Caption = Int((i - 1)/ 30000 * 100) & "%"
        .Repaint
    End With