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. 

<DIM>

20.40

if <DIM> 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.