Ohh no ... seems to contain a mistake.

That's my boy! true brute force at it's best ( even with a bug )

I don't see the bug. Tried replacing the For loops with

For i = -648 to +647 step 2

For i = -647 to +647 step 2

So that I wouldn't have to wait a month for a result, and the values return correct results.

Edit: Here's another way to determine if a number is odd or even

`Function isEven(num%)`

If Instr("02468",Right(Str(num),1)) > 0 Then Return True

Return False

End Function

Function isOdd(num%)

If Instr("13579",Right(Str(num),1)) > 0 Then Return True

Return False

End Function

Rube Goldberg use to find complex ways of solving simple problems. I guess this is the programmer's version of it?