【VBA】５００件ごと実行ログを画面表示

VBAのバッチ処理で途中経過を確認したいとき、以下の処理をよく使います。

１．ソース

If ins_cnt < 5 Or (ins_cnt Mod 500) = 0 Then
　　　　If run_flgz = 0 Then
　　　　　　　　　MsgBox (ins_cnt & " " & 管理番号 & "：" & ID1 & " 追加成功")
　　　　End If
End If