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

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

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

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

我学C的 初学者

WHILE后面的变量不加（）吗？每条语句结束后不加;吗？

vb 句末不加分号；
while 后可以不加括号；如果表达式复杂，可以加上。

这些是 vb 的基本语法 ：）

自己先顶下。

请路过的各位给帮个忙啊