I have the following VB Script expression for labeling, I am not getting the right blue color. I am using ArcGIS Pro, same expression worked just fine in ArcMap.
I would like some help converting it to Arcade or Python.
Function FindLabel <SPAN class="punctuation token">(</SPAN> <SPAN class="punctuation token">[</SPAN>ABCDEFGH_New<SPAN class="punctuation token">.</SPAN>DesceasedName<SPAN class="punctuation token">]</SPAN><SPAN class="punctuation token">,</SPAN><SPAN class="punctuation token">[</SPAN>ABCDEFGH_New<SPAN class="punctuation token">.</SPAN>ownerName<SPAN class="punctuation token">]</SPAN><SPAN class="punctuation token">,</SPAN><SPAN class="punctuation token">[</SPAN>ABCDEFGH_New<SPAN class="punctuation token">.</SPAN>all_spaceid<SPAN class="punctuation token">]</SPAN> <SPAN class="punctuation token">)</SPAN>
<SPAN class="keyword token">if</SPAN> <SPAN class="punctuation token">(</SPAN>FindLabel <SPAN class="operator token">=</SPAN> <SPAN class="punctuation token">[</SPAN>ABCDEFGH_New<SPAN class="punctuation token">.</SPAN>DesceasedName<SPAN class="punctuation token">]</SPAN><SPAN class="operator token"><</SPAN><SPAN class="operator token">></SPAN><SPAN class="string token">""</SPAN><SPAN class="punctuation token">)</SPAN> then
FindLabel <SPAN class="operator token">=</SPAN> <SPAN class="string token">"<CLR black='255'><FNT size = '6'>"</SPAN> <SPAN class="operator token">+</SPAN> <SPAN class="punctuation token">[</SPAN>ABCDEFGH_New<SPAN class="punctuation token">.</SPAN>DesceasedName<SPAN class="punctuation token">]</SPAN> <SPAN class="operator token">+</SPAN> <SPAN class="string token">"</FNT></CLR>"</SPAN><SPAN class="operator token">+</SPAN> vbnewline <SPAN class="operator token">+</SPAN> <SPAN class="string token">"<CLR red='115' green='38' blue='0'><BOL>"</SPAN> <SPAN class="operator token">+</SPAN><SPAN class="punctuation token">[</SPAN>ABCDEFGH_New<SPAN class="punctuation token">.</SPAN>all_spaceid<SPAN class="punctuation token">]</SPAN> <SPAN class="operator token">+</SPAN> <SPAN class="string token">"</BOL></CLR>"</SPAN>
ElseIf <SPAN class="punctuation token">(</SPAN>FindLabel <SPAN class="operator token">=</SPAN><SPAN class="token function">IsNull</SPAN><SPAN class="punctuation token">(</SPAN><SPAN class="punctuation token">[</SPAN>ABCDEFGH_New<SPAN class="punctuation token">.</SPAN>DesceasedName<SPAN class="punctuation token">]</SPAN> <SPAN class="punctuation token">)</SPAN> <SPAN class="punctuation token">)</SPAN>Then
FindLabel<SPAN class="operator token">=</SPAN> <SPAN class="string token">"<CLR blue='255'><FNT size = '6'>"</SPAN> <SPAN class="operator token">+</SPAN> <SPAN class="punctuation token">[</SPAN>ABCDEFGH_New<SPAN class="punctuation token">.</SPAN>ownerName<SPAN class="punctuation token">]</SPAN> <SPAN class="operator token">+</SPAN> <SPAN class="string token">"</FNT></CLR>"</SPAN> <SPAN class="operator token">+</SPAN> vbnewline <SPAN class="operator token">+</SPAN> <SPAN class="string token">"<CLR red='115' green='38' blue='0'><BOL>"</SPAN> <SPAN class="operator token">+</SPAN><SPAN class="punctuation token">[</SPAN>ABCDEFGH_New<SPAN class="punctuation token">.</SPAN>all_spaceid<SPAN class="punctuation token">]</SPAN> <SPAN class="operator token">+</SPAN> <SPAN class="string token">"</BOL></CLR>"</SPAN>
Else
FindLabel <SPAN class="operator token">=</SPAN><SPAN class="string token">"<CLR red='115' green='38' blue='0'><BOL>"</SPAN> <SPAN class="operator token">+</SPAN><SPAN class="punctuation token">[</SPAN>ABCDEFGH_New<SPAN class="punctuation token">.</SPAN>all_spaceid<SPAN class="punctuation token">]</SPAN> <SPAN class="operator token">+</SPAN> <SPAN class="string token">"</BOL></CLR>"</SPAN>
End If
End Function<SPAN class="line-numbers-rows"><SPAN></SPAN><SPAN></SPAN><SPAN></SPAN><SPAN></SPAN><SPAN></SPAN><SPAN></SPAN><SPAN></SPAN><SPAN></SPAN><SPAN></SPAN><SPAN></SPAN><SPAN></SPAN><SPAN></SPAN></SPAN>