主题：我按系统帮助改编的一段代码，可是结果却不一样(已解决）

Dim max As String
Dim idx As Integer

max = Tables("bmk").Compute("Max(BH)","substring([bh],5,8) = " & format(Date.Today(),"yyyyMMdd") & "" )
If max>"" Then
idx = CInt(max.Substring(12)) + 1（取最后5位，理论上应该是00001，可我查看了一下取值却是16001
Else
idx = 1
End If

e.form.Controls("LabelBH1").text ="HHZY" & format(Date.Today(),"yyyyMMdd") & Format(idx,"00000")

这是一个编号生成的代码，理论上生成的代码为“HHZY2012031600001",第一个生成的代码没有错，可是到后面就成如下规律

HHZY2012031600001

HHZY201203161600002

HHZY20120316161600003