Change text1 color

[Piller]

Im trying to change text1.text color with a combo box but instead i get a error every time. This is the code i used

Private Sub text1_change()
Text1.Font = (Combo1.Text)
Text1.FontSize = (Combo3.Text)
Text1.ForeColor = (Combo2.Text)
End Sub

But the other 2 work fine the forecolor gets a error when i choose the color.