Rather than concatenating in a loop, you can do:
intNumber = 2
strResult = Right("000" & intNumber, 4) ' gives 0002
intNumber = 200
strResult = Right("000" & intNumber, 4) ' gives 0200
Cheers
Ken
Microsoft MVP - Windows Server (IIS)
www.adOpenStatic.com