Function analyseRGB(col As Long) As String
Dim r As Long
Dim g As Long
Dim b As Long
Dim q As Long
r = col Mod 256
q = Int(col / 256)
g = q Mod 256
b = Int(q / 256)
analyseRGB = r & "," & g & "," & b
'MsgBox ("Red: " & r & vbCrLf & _
"Green: " & g & vbCrLf & _
"Blue: " & b & vbCrLf)
End Function