Determine Colour Value (Level of Darkness not 16777215 for white!)

[brucevde]

Not sure how you would determine a dark color from light but this might help.

You can separate the RGB components from a color value using this code

    Dim lngColor As Long
    Dim Red As Long
    Dim Green As Long
    Dim Blue As Long
    
    lngColor = 16777215
    Red = lngColor And &HFF&
    Green = (lngColor \ &H100&) And &HFF&
    Blue = (lngColor \ &H10000) And &HFF&

You can convert the RGB values to Hue, Saturation or Luminance. Search Google for the code.