Use HEX() values of colors, not decimal. Not sure of the value of Black, but it may be FFFFFF, where the first is Red, the second Green, and the last is Blue.
FF-FF-FF. If the color is in a range, you could change it to vbBlack.