Route hatch labeling as stations (0+00) with vba

[المشرف العام]

I have a route feature which I have set up to label every 500' with the distance along the line. I'd like to use typical stationing format (000+00). I've been using the following VBA script:

Function FindLabel ( esri__measure )if esri_measure=0 then FindLabel = "0+00"elseif esri_measure