Sub modifusf()
Dim x&, y$
i = 144
j = 255
k = 115
x = RGB(i, j, k)
y = "&H" & Hex(x)
MsgBox y
'RGB
ThisWorkbook.VBProject.VBComponents("UserForm1").Properties("BackColor") = RGB(i, j, k)
'Long
ThisWorkbook.VBProject.VBComponents("UserForm1").Properties("BackColor") = x
'Hex
ThisWorkbook.VBProject.VBComponents("UserForm1").Properties("BackColor") = y
End Sub