This line

Code:
IDNumber = String$(9 - Len(IDNumber), "0") & IDNumber
Could be written something like
Code:
IDNumber=Mid("000000000",1,9-Len(IDNumber)) & IDNumber
You can also use mid() to replace the uses of right()