Option Explicit

Private Sub Form_Load()

Dim C As Long

Dim R As Long, rTemp As Long
Dim G As Long, gTemp As Long
Dim B As Long, bTemp As Long


C = &HDE33AF

R = C \ &H10000
rTemp = R * &H10000

gTemp = C - rTemp
G = gTemp \ &H100

bTemp = G * &H100
B = gTemp - bTemp

Debug.Print Hex(R)
Debug.Print Hex(G)
Debug.Print Hex(B)

End Sub

' Jhonjhon_123