Математическое преобразование цвета - VB

Формулировка задачи:

пытаюсь преобразовать цвет, полученный из интерфейса OLE_COLOR есло передовать его на прямую, то при передачи возникают ошибки переполнения если через RGB(R, G, B) то всё вроде правильно, только я не знаю как правильно преобразовать отрицательное число такого вида -2147483644 в три цифры цвета ниже мои попытки, в передачи свойств, и картинка результата

Public Property Let DefColor(ByVal New_DefColor As OLE_COLOR)
    Dim dd&, bRGB%(2), f&, q%
 
    dd = New_DefColor + 2 ^ 31
    Debug.Print New_DefColor, dd
    For f = 0 To 2
 
        bRGB(0) = dd Mod 256
        Debug.Print dd Mod 256;
        dd = Fix(dd / 256)
    Next
 
    m_DefColor = New_DefColor
    cboTest.List(0) = CStr(New_DefColor)
''''    cboTest.itemData(0) = RGB(bRGB(0), bRGB(2), bRGB(3))
    cboTest.itemData(0) = RGB(255, 255, 0) '----Проверочный Жолтый
    PropertyChanged "DefColor"
End Property

Решение задачи: «Математическое преобразование цвета»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
    Dim R As Byte, G As Byte, B As Byte
    Dim Col As Long
    
    Col = vbMagenta
    
    R = Col And &HFF&
    G = (Col And &HFF00&) \ &H100
    B = (Col And &HFF0000) \ &H10000
End Sub
                        