VB: looking at polite numbers