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