フォームをアクティブにして、指定秒後にモジュールを実行

Private Sub UserForm_Activate()
'　1秒後に、モジュールを実行する。
Dim i As Integer, j As Integer
Application.OnTime Now + TimeValue("00:00:01"), "Module1.kaisi_no_syori"

End Sub