This is an interesting problem. Have you considered a combination of
digits limited in their range, something like:

Digit 1: can only be 1 or 0
Digit 2: can only be 3 - 7
Digit 3: can only be 4 - 8

and so on. Then use the VBScript Regular Expressions library or write
your own parser to confirm the rules have been met.