Cambiar el Color del texto de la celda con un optionbotton

Tengo un codigo vba que basicamente lo que realiza es de un textbox copia el dato y lo va creando una base de datos en una hoja de excel, todo funciona correctamente lo que necesito es que el color del texto cambie segun la opcion seleccionada con optionbotton

El codigo que esto utilizando para crear la base de datos es este

Private Sub CommandButton1_Click()

With Selection

Set transrowrng = ThisWorkbook.Worksheets("Recomendaciones").Cells(1, 1).CurrentRegion
NewRow = transrowrng.Rows.Count + 1
With ThisWorkbook.Worksheets("Recomendaciones")

.Cells(NewRow, 1).Value = TextBox2
.Cells(NewRow, 2).Value = TextBox1

End With

End With

End Sub