Getting colored contents out of a cell

[thomsi]

Hello,
I want to get the colored characters out of a cell. What I did at the moment is that I copied the String in the cell and I have a certain color, which I am looking for. Then I use the following function:

Function getTasks(CellsValue As String, Color As Long) As String
If Len(CellsValue) > 0 Then
For i = 1 To Len(CellsValue)
If CellsValue.Chars(i).Font.Color = Color Then
getTasks = getTasks & CellsValue.Char(i)
End If
Next i
End If
End Function

But it says "invalid qualifier". Can someone help mewith this please?

[thomsi]

Okay, I changed the code to this: but it still doesn't get the color of the char :/
Function getTasks(CellsValue As String, Colors As Long) As String
If Len(CellsValue) > 0 Then
For i = 1 To Len(CellsValue)
If Mid(CellsValue, i, 1).Font.Color = Colors Then
getTasks = getTasks & Mid(CellsValue, Index, i)
End If
Next i
End If
End Function