This will do it

VB Code:
  1. lngRed = (lngColor And &HFF&)
  2. lngGreen = (lngColor And &HFF00&) / &H100
  3. lngBlue = (lngColor And &HFF0000) / &H10000