Macro to Change color of dimension for checking

I need a macro that would change the color of the dimension if the value is not equal to the callout text, that would cycle to all of my dimension in the drawing. 

20.40

if value is not equal to 20.40 then change the color to red else color it black.

and then loop to all dimension. 

Thank you in advance. 

SolidworksApi/macros