>>396
9行目
strNewCode = CLng(strNewCode) + 1
多分ここで数値に変換されてるので1桁にしかならないんやと思う。

でここを
strNewCode = Right("00000" & CStr(CLng(strNewCode) + 1), 5)
みたいに文字列に変換して０をくっつけたらうまくいくんちゃう？