Just get rid of 1000 -
            .Item(Format$(Len(e), "000""" & e & """")) = e