How to change color of text filled in by VBA

Question

I have a code that fills in blank cells based on LEFT 3 symbols from another column like:

Set xlCellA = Range("C2")
LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Do Until xlCellA.Row > LastRow
If xlCellA.Value = "" Then
xlCellA.Value = Left(xlCellA.Offset(0, 2).Value, 3)
            
End If
Set xlCellA = xlCellA.Offset(1, 0)
Loop
Set xlCellA = Nothing

And I'd like it to color that new added text to be vbred. How and where to add that in the code?

Answer 1

From the comment by braX :

xlCellA.Font.Color = vbRed

My code is thus:

Set xlCellA = Range("C2")
LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Do Until xlCellA.Row > LastRow
If xlCellA.Value = "" Then
xlCellA.Value = Left(xlCellA.Offset(0, 2).Value, 3)
xlCellA.Font.Color = vbRed
    
End If
Set xlCellA = xlCellA.Offset(1, 0)
Loop
Set xlCellA = Nothing