arcgis属性表中数值前面加0的问题

arcgis中连续编号为
VBA部分:
Static lCount as long
lCount=lCount+1
赋值部分:
lCount (从1开始)
lCount-1 (从0开始)
那么我要是想在连续编号的数值前增加位数,也就是数值前自动加0，例如89自动变成0089需要在上面的vba语言中加入什么语言？希望各位高手能写详细点，我是菜鸟！跪求！

VBA部分:
Static lCount as long
Dim a as string
lCount=lCount+1
a= Format( lCount, "0000")
赋值部分:
a
“0000”表示前面自动陵码补〇，补棚汪皮够四位数，依次链差类推。