LS不及格。

Public Function ColorRGB(ByVal Color As Long) As Long
If Color = -1 Then ColorRGB = 999: Exit Function
Const ByN As Integer = 256
Const ByN2 As Long = 65536
Dim A(2) As Byte
A(0) = (Color Mod ByN)
A(1) = ((Color Mod ByN2) \\ ByN)
A(2) = (Color \\ ByN2)

ColorRGB = (Color Mod ByN) + ((Color Mod ByN2) \\ ByN) + (Color \\ ByN2)
End Function

https://www.kechuang.org/t/12553