or as simple as this:

Enum eRGBcolor
 color_Red = 0
 color_Green = 1
 color_Blue = 2
End Enum

Function PartRGB(RGBcolor As eRGBcolor, ByVal ColorValue&) As Long
  PartRGB = (ColorValue \ 256 ^ RGBcolor) Mod 256
End Function