Hi,

These functions work fine for me.

OET

Private Function GetRed(colorVal As Long) As Integer
On Error Resume Next
GetRed = colorVal Mod 256
End Function

Private Function GetGreen(colorVal As Long) As Integer
On Error Resume Next
GetGreen = ((colorVal And &HFF00FF00) / 256&)
End Function

Private Function GetBlue(colorVal As Long) As Integer
On Error Resume Next
GetBlue = (colorVal And &HFF0000) / 65535 '(256& * 256&)
End Function