Bothness
Apparently numbers can be both odd and even…
If IsNumeric(StreetNumberValue) Then If 2 Mod CType(StreetNumberValue, Integer) = 0 Then OddEven = "E" 'Even Else OddEven = "O" 'Odd End If Else OddEven = "B" 'Both End If
As seen here:
http://worsethanfailure.com/Articles/Odd-or-Even-or-Both.aspx
There is that, and the fact that mod is used so that 1 and 2 will be the only 2 even numbers, and all the rest will be odd…
hey, that’s VB!
And it is now properly coloured…