Well, that's another way.

I could use this...
IIf(Len([ZipCode])>5,Format$([ZipCode],"00000-0000"),Format$([ZipCode],"00000"))

But I was hoping to accomplish it all within the confines
of the Format function. Perhaps its not possible.