creating directories w/names from numeric files?

Does anyone know of a VB script (or other program) that can take number 6 digit numbered file from one folder (there are over 1 million files) and seperate them into numeric folders with sub directories ranging from 1-9? The purpose is to improve perfromance on converting by making the directories hodls less that 1000 files each. The directories created will be only ones needed.

Or does anyone have ideas on what direction this should take?

sample code is appreciated.