字符串转换问题
dim strID as string
strID = Right("000" & Str(Int("001") + 1), 3)
为什么结果是"0 2"
而不是"002"呢

[解决办法]
Str 函数
当数字转换为字符串时，始终为 Number 的符号保留一个前导空格。如果 Number 为正，则返回的字符串包含前导空格，并暗含加号。负数将包括减号 (-)，且没有前导空格。

Str(Int("001") + 1)的结果是"空格 2"