当需要根据交替改变布尔型变量时，例如下面的代码：

Dim bWhere as Boolean
If bWhere =True then
   bWhere =False
 Else
   bWhere =True
End if

上面的代码效率是很低的，应该修改为：

bWhere = Not bWhere

这样就一行代码实现了功能，并且在运行速度上要快得多。