Changing the font color using VBA

I have VBA code that changes the background color of a cell but I would also like to change the color of the font.

The code below changes the cell RED but I would also like the font WHITE.



code:
--------------------------------------------------------------------------------
Case Cells(CurrRow, 8) < 80
CurrRow = Thing.Row
Range(Cells(CurrRow, 8), Cells(CurrRow, 8)).Select
'Grab column 1 where found
With Selection.Interior
.ColorIndex = 3 '3=red
.Pattern = xlSolid
End With
--------------------------------------------------------------------------------

Hi

Case Cells(CurrRow, 8) < 80
CurrRow = Thing.Row
Range(Cells(CurrRow, 8), Cells(CurrRow, 8)).Select
'Grab column 1 where found
With Selection.Interior
.ColorIndex = 3 '3=red
.Pattern = xlSolid
.Font.ColorIndex=2
End With