Label using VBscript in ArcMap - multiple IF statements?

I can think of several ways to do this, but maybe the simplest is to just build the label with all values, 0 included, then replace the 0's with empty spaces. Although honestly your function doesn't look like it's doing what you state. It looks like you're passing in seven fields, not four.

Not as familiar with VBScript as I used to be, but you could try something like the following in Python. You might have to adjust things a bit to fit your data.

def FindLabel(Field1, Field2, Field3, Field4):
    lbl = ' '.join(Field1, Field2, Field3, Field4)
    lbl.replace('0', '')
    return lbl

The reason your code was failing was you had multiple "if" statements without an "end if" for each of them. It looks like you wanted "elseif" for the second, third, and fourth checks.

Function FindLabel ( [_Seq1_TractDepthSequence], [_Seq1_BegInterval] ,[_Seq1_EndInterval], [_Seq1_DeckCorpRITot], [_Seq1_DeckCorpORRITot] , [_Seq1_DeckCorpIntTot] , [_Seq1_DeckCorpGWITot]   )
  if ( [_Seq1_TractDepthSequence] = 1) AND ([_Seq1_DeckCorpRITot] <> 0) then
    FindLabel = [_Seq1_BegInterval] &" - "& [_Seq1_EndInterval] &" : "& [_Seq1_DeckCorpRITot] &" RI"
  elseif ( [_Seq1_TractDepthSequence] = 1) AND ( [_Seq1_DeckCorpORRITot]  <> 0) then
    FindLabel = [_Seq1_BegInterval] &" - "& [_Seq1_EndInterval] &" : "& [_Seq1_DeckCorpORRITot] &" ORRI
  elseif ( [_Seq1_TractDepthSequence] = 1) AND ( [_Seq1_DeckCorpIntTot]  <> 0) then
    FindLabel = [_Seq1_BegInterval] &" - "& [_Seq1_EndInterval] &" : "& [_Seq1_DeckCorpIntTot] &" CorpInt"
  elseif ( [_Seq1_TractDepthSequence] = 1) AND ( [_Seq1_DeckCorpGWITot]  <> 0) then
    FindLabel = [_Seq1_BegInterval] &" - "& [_Seq1_EndInterval] &" : "& [_Seq1_DeckCorpGWITot] &" WI"
  else
  end if
End Function

Since you're always checking whether the _Seq1_TractDepthSequence field is = 1, try something like this to condense the code.

Function FindLabel ( [_Seq1_TractDepthSequence], [_Seq1_BegInterval] ,[_Seq1_EndInterval], [_Seq1_DeckCorpRITot], [_Seq1_DeckCorpORRITot] , [_Seq1_DeckCorpIntTot] , [_Seq1_DeckCorpGWITot]   )
  if [_Seq1_TractDepthSequence] = 1 then
    if [_Seq1_DeckCorpRITot] <> 0 then
      FindLabel = [_Seq1_BegInterval] &" - "& [_Seq1_EndInterval] &" : "& [_Seq1_DeckCorpRITot] &" RI"
    elseif [_Seq1_DeckCorpORRITot]  <> 0 then
      FindLabel = [_Seq1_BegInterval] &" - "& [_Seq1_EndInterval] &" : "& [_Seq1_DeckCorpORRITot] &" ORRI
    elseif  [_Seq1_DeckCorpIntTot]  <> 0 then
      FindLabel = [_Seq1_BegInterval] &" - "& [_Seq1_EndInterval] &" : "& [_Seq1_DeckCorpIntTot] &" CorpInt"
    elseif [_Seq1_DeckCorpGWITot]  <> 0 then
      FindLabel = [_Seq1_BegInterval] &" - "& [_Seq1_EndInterval] &" : "& [_Seq1_DeckCorpGWITot] &" WI"
    end if
  end if
End Function

Based on your comment below, try this code.

Function FindLabel ( [_Seq1_TractDepthSequence], [_Seq1_BegInterval] ,[_Seq1_EndInterval], [_Seq1_DeckCorpRITot], [_Seq1_DeckCorpORRITot] , [_Seq1_DeckCorpIntTot] , [_Seq1_DeckCorpGWITot]   )
  if [_Seq1_TractDepthSequence] = 1 then
    label = [_Seq1_BegInterval] &" - "& [_Seq1_EndInterval] &" : "
    if [_Seq1_DeckCorpRITot] <> 0 then label = label & [_Seq1_DeckCorpRITot] &" RI "
    if [_Seq1_DeckCorpORRITot]  <> 0 then label = label & [_Seq1_DeckCorpORRITot] &" ORRI "
    if [_Seq1_DeckCorpIntTot]  <> 0 then label = label & [_Seq1_DeckCorpIntTot] &" CorpInt "
    if [_Seq1_DeckCorpGWITot]  <> 0 then label = label & [_Seq1_DeckCorpGWITot] &" WI"
    FindLabel = label
  end if
End Function

I found a way to get it to work! It only provides the label string if the query is true.

Function FindLabel ( [_Seq1_DeckCorpRITot], [_Seq1_DeckCorpIntTot]    )
  strExp1 =  [_Seq1_DeckCorpRITot] &" RI"
  strExp2 =  [_Seq1_DeckCorpIntTot]  &"  CorpInt"
if ([_Seq1_DeckCorpRITot] <> 0) then  strExp = strExp1
if ([_Seq1_DeckCorpIntTot] <> 0) then   strExp = strExp2
  FindLabel = strExp 
End Function

Two things I would try:

Simply export the selection for your query and turn on labeling. So your SQL query would be something like

(_Seq1_TractDepthSequence = 1 AND [_Seq1_DeckCorpRITot] <> 0) OR
(_Seq1_TractDepthSequence = 1 AND [_Seq1_DeckCorpORRITot]  <> 0) 

...etc

Then export the selection. Your new layer will only contain those that are not = 0. You could then specify what needs to be labelled or create a separate "labelfield" with what you want labelled inside... OR...

I would go the lazy route and add a "LabelField" since your code seems redundant. In the calculate field:

[_Seq1_BegInterval] &" - "& [_Seq1_EndInterval] &" : "

And for your label modified from kenbuja:

 Function FindLabel ( [LabelField],[_Seq1_TractDepthSequence], [_Seq1_DeckCorpRITot], [_Seq1_DeckCorpORRITot] , [_Seq1_DeckCorpIntTot] , [_Seq1_DeckCorpGWITot]   )
  if [_Seq1_TractDepthSequence] = 1 then

    if [_Seq1_DeckCorpRITot] <> 0 then Findlabel = [LabelField] & [_Seq1_DeckCorpRITot] &" RI "
    if [_Seq1_DeckCorpORRITot]  <> 0 then Findlabel = [LabelField] & [_Seq1_DeckCorpORRITot] &" ORRI "
    if [_Seq1_DeckCorpIntTot]  <> 0 then Findlabel = [LabelField] & [_Seq1_DeckCorpIntTot] &" CorpInt "
    if [_Seq1_DeckCorpGWITot]  <> 0 then Findlabel = [LabelField] & [_Seq1_DeckCorpGWITot] &" WI"
    FindLabel = [LabelField]
  end if
End Function