my if-then-else script is not working

I am trying to use font color in an if-then-else script. The problem I have is that the if-then-else script ignores the color definition.
With the below script I always get 2 even if the font color is -65536. What is wrong in this script?

Please Login or Register  to view this content.

no that doesn't work. But close. The color code was the problem! In my case the color code is 5.
But I don't understand why it is 5 and not -65536. If I use the macro recorder to check the color code I get -65536.
I discovered that it is 5 because long time ago I did this before and I remembered where I did it.

How can I determine the correct color code of a cells font color?

I found a way:

Sheets("HUG").Cells(1, 2) = Sheets("HUG").Cells(1, 1).Font.ColorIndex