Format([YourNumber],"000") should do it.