ColorIndexで文字やセルの色を変えてみよう。
　

　　Dim iro As Long

　　iro = Range("Sheet1!A1").Offset(cmb色セル.ListIndex, 1).Value

　　Cells(4, 4).Interior.ColorIndex = iro

End Sub

Private Sub cmb色文字_Change()

　　Dim iro As Long

　　iro = Range("Sheet1!A1").Offset(cmb色文字.ListIndex, 1).Value

　　Cells(4, 4).Font.ColorIndex = iro

End Sub

セルの色を変えるときは、Interiorプロパティを使います。

またセルの文字を変えるときは、Fontプロパティを使います。

以上ですが、せっかくフォームを作ったので、シート上ダブルクリックしたら、このユーザーフォーム「iro」が表示されるように設定をしておきます。