[求助] VBA:为何删除outlook的任务时速度越来越慢

我做的是个对outlook操作的VBA 程序，其中一个功能是删除 outlook中所有的"任务记录"。当记录是15万条的时候，删除头1万条用时约 22 秒；但再次删除一万条的时间大约有 40秒；等删除了 4万条时 用时将近5分钟；半个小时还没有将15万条全删除。我的相关程序如下：

j = spItems.count
While j
spItems.Remove (j)
j = j - 1
Wend

。
关于越来越慢的原因， 还清各位大虾帮忙指点！