Color of the letter in a cell

For example:

Function GetColor(cell As Range, Optional ofFont As Boolean = True) As Long
    Application.Volatile
    If ofFont Then
        GetColor = cell.Font.Color
    Else
        GetColor = cell.Interior.Color
    End If
End Function

Use like this:

=GetColor(B2)

to get the font color, or

=GetColor(B2, FALSE)

to get the fill color.

Warning: the formula result will not be updated automatically when you change the color. Press F9 to force the formula to recalculate.