加入msgbox看看
msgbox(max)
msgbox(max.length)
idx = CInt(max.Substring(ld1.Length + ld2.Length,8)) + 1 '获得最大编号的后四位顺序号,并加1