Visual Basic - Extraer los valores RGB desde cuadro dialogo Color

Hola
Alguien sabe como extraer desde el cuadro de díalogo de colores los valores RGB (255 - 0 - 0 = Rojo) de las propiedades del BoderColor. La idea es que cuando llamo a este cuadro de díalogo me pase los valores cuando pulse la tecla aceptar y este cuadro de díalogo pierda el foco. (LostFocus)
Atte. GUILLE

Juan:
Este código siempre ha funcionado

Private Sub LongToRGB(ByVal RGBval As Long, Optional ByRef iRed As Integer, Optional ByVal iGreen As Integer, Optional ByVal iBlue As Integer)
iRed = RGBval And 255
iGreen = (RGBval \ 256 ^ 1) And 255
iBlue = (RGBval \ 256 ^ 2) And 255
End Sub

Saludos Ruri