Solved! Go to Solution.
Function FindLabel ( esri__measure ) If Right(CStr(esri__measure), 3) = "500" Then FindLabel = CStr((esri__measure-500)/1000) & " + " & "500 km" Else FindLabel = CStr((esri__measure)/1000) & " + " & "0 km" End If End Function