ArcMap Labels 分式结构

最近需要在ArcMap中给要素添加分式结构的标注，可用如下VBScript函数实现：

Function FindLabel ( [LBH], [DBH], [XBH] )
dim head,tail,l
head= [LBH]&" - "& [DBH]
tail= [XBH]
FindLabel = "<UND>" & head & "</UND>" & vbnewline & tail
End Function