I have a number of colored buttons on a form that, when clicked, fire the
following macro:

Private Sub Image300_Click()
   On Error Resume Next
   Dim Pass_color As MsoRGBType 'Define variable
   Pass_color = 11954700 'Variable gets a color
   Call Color_macros.Color_single_click(Pass_color) 'Pass color to macro
End Sub

This color is then passed to the following (simplified) macro:

Public Sub Color_single_click(My_color As MsoRGBType)
   On Error Resume Next
   'Color passed from button
   Selection.Font.Color = My_color 'Change text color
End Sub

However, I would like to use RGB values such as RGB(12, 106, 182) instead of
11954700.

Can anyone tell me how I can do this?

thanks,
androo