arcgis 中分式注记

Function FindLabel ( [NAME],[DZM]  )
dim cd1
dim cd2
dim  bcd
cd1=len([DZM])
cd2=len([NAME])
if (cd1>cd2) then
  bcd=round((cd1-cd2)/2,0)
  FindLabel = "<und>"& string(bcd," ") &   [NAME]  &string(bcd," ") &"</und>"&vbcrlf& [dzm]
else
  FindLabel = "<und>" &    [NAME]  &"</und>"&vbcrlf&[DZM]
end if

End Function