Reading conditional formatting [closed]

A cell is conditionally formatted to have one of 3 icons depending on the value in the cell. I want to make a function in VBA, that returns the icon value/number/identifier (something to identify the icon) from that cell. So essentially like the following:

Function GetColor(r As Range) As Integer
    GetColor = r.Interior.ColorIndex
End Function

but instead of getting the Color I want to get the Icon.