Color to RGB
From scripting
Function Color_to_RGB(Color As Long) As Variant Dim CurRGB() As Integer ReDim CurRGB(2) CurRGB(0) = Color Mod 256 CurRGB(1) = (Color \ 256) Mod 256 CurRGB(2) = (Color \ 256 \ 256) Mod 256 Color_to_RGB = CurRGB End Function