Label Expression Help Needed

Question

I have some pipe data, I used VB Script to display only attributes over 0 (pipe sizes over 0). This is the VB script expression I am 
using (the field name for pipe sizes is Diam_in):

Function FindLabel ( [Diam_in], [ ] )
  FindLabel = Function FindLabel ([Diam_in])
  if ([Diam_in] >= 0) then
   FindLabel =  [Diam_in]
  else
  FindLabel = [ ]
  end if
End Function

Question is: How do I add an " to the pipe sizes that display, ie so they label pipes as 8", 12", 10", etc?

Thank you for your help.

Angie

TedKowal · Answer

add a chr(34)...
Function FindLabel ([Diam_in])
  if IsNull([Diam_in]) Then
     FindLabel = ""
  elseif [Diam_in] >= 0 then ' Consider just > 0
     FindLabel = [Diam_in] & chr(34)  'Ascii code for a double quoute
  else
     FindLabel = ""
  end if
End Function

RichardFairhurst · Answer

It's still not displaying the "; it displays only pipe sizes over 0, so the labels are showing up as 8, 10, etc with no " after the 8, 10, etc

It works.  I did it before I posted it and it defintely displayed as 8". 10".  What is the code you are trying now?  Are the pipe diameters numeric values or strings?  What font are you using for the labels?

Try a normal expression with just:

[Diam_in] & """"

If that works then you can worry about adding label logic afterward (or write an SQL filter for the labels to avoid having to use the label expression at all).

AngieLehnert · Answer

It's still not displaying the "; it displays only pipe sizes over 0, so the labels are showing up as 8, 10, etc with no " after the 8, 10, etc