Counting Words That Are Not Black In One Cell?

I currently have this code for counting commas in each cell in range giving me the total number of different points in the entire row. Here's the link to the original question as well.

Code:
Sub Totals()
Dim X As Long, Count As Variant
Sheets("App Communication").Select
For X = 3 To 59
Count = UBound(Split(Application.Trim(Replace(Replace(Application.Trim(Join(Application. _
Index(Cells(X, "E").Resize(, 57).Value, 1, 0), ",")), " ", "X"), ",", " ")))) + 1
Cells(X, "BJ").Value = Left(Count, CLng(Count))
Next
End Sub

Now I am looking for a way to count the number of points that have been turned blue. Some times the text in the whole cell is turned blue, others just one or two of the points is turned blue.