Function FindLabel ( [MLTYLT], [COLOUR], [INFORM], [LIGHT_TYPE], [LITCHR], [HEIGHT], [STATUS], [SIGPER], [VALNMR] )

If ([MLTYLT] > 0) AND ([LITCHR]  = "fixed") AND ( [COLOUR] = "white") then
    FindLabel = [MLTYLT] & " Lts" & vbNewLine & "F W"
End If

If ([MLTYLT] > 0) AND ([LITCHR]  = "fixed") AND ( [COLOUR] = "red")  then
    FindLabel = [MLTYLT] & " Lts" & vbNewLine & "F R"
end if

If ([MLTYLT] > 0) AND ([LITCHR]  = "fixed") AND ( [COLOUR] = "green")  then
    FindLabel = [MLTYLT] & " Lts" & vbNewLine & "F G"
end if

  if ([MLTYLT] < 2) AND ( [LITCHR]  = "flashing") AND ( [COLOUR] = "red")  then
    FindLabel = "Fl R"
  end if
  if ([MLTYLT] < 2) AND ( [LITCHR]  = "fixed") AND ( [COLOUR] = "red")  then
    FindLabel = "F R"
  end if
  if ([MLTYLT] < 2) AND ( [LITCHR]  = "occulting") AND ( [COLOUR] = "red")   then
    FindLabel = "Oc" &" R" & [SIGPER] & "s " & [HEIGHT] & "m "& [VALNMR] & "M"
  end if
  if ([MLTYLT] < 2) AND ( [LITCHR]  = "quick-flashing") AND ( [COLOUR] = "red")   then
    FindLabel = "Q" &" R"
  end if
  if ([MLTYLT] < 2) AND ( [LITCHR]  = "flashing") AND ( [COLOUR] = "white")  then
    FindLabel = "Fl" &" W"
  end if
  if ( [LITCHR]  = "fixed") AND ( [COLOUR] = "white")  then
    FindLabel = "F" &" W"
  end if
  if ( [LITCHR]  = "occulting") AND ( [COLOUR] = "rwhite")   then
    FindLabel = "Oc" &" W"& [SIGPER] & "s " & [HEIGHT] & "m "& [VALNMR] & "M"
  end if
  if ( [LITCHR]  = "quick-flashing") AND ( [COLOUR] = "white")   then
    FindLabel = "Q" &" W"
  end if
  if ( [LITCHR]  = "flashing") AND ( [COLOUR] = "black")  then
    FindLabel = "Fl" &" B"
  end if
  if ( [LITCHR]  = "fixed") AND ( [COLOUR] = "black")  then
    FindLabel = "F" &" B"
  end if
  if ( [LITCHR]  = "occulting") AND ( [COLOUR] = "black")   then
    FindLabel = "Oc" &" B"& [SIGPER] & "s " & [HEIGHT] & "m "& [VALNMR] & "M"
  end if
  if ( [LITCHR]  = "quick-flashing") AND ( [COLOUR] = "black")   then
    FindLabel = "Q" &" B"
  end if
  if ( [LITCHR]  = "flashing") AND ( [COLOUR] = "green")  then
    FindLabel = "Fl" &" G"
  end if
  if ( [LITCHR]  = "fixed") AND ( [COLOUR] = "green")  then
    FindLabel = "F" &" G"
  end if
  if ( [LITCHR]  = "occulting") AND ( [COLOUR] = "green")   then
    FindLabel = "Oc" &" G"& [SIGPER] & "s " & [HEIGHT] & "m "& [VALNMR] & "M"
  end if
  if ( [LITCHR]  = "quick-flashing") AND ( [COLOUR] = "green")   then
    FindLabel = "Q" &" G"
  end if
  if ( [LITCHR]  = "flashing") AND ( [COLOUR] = "3,2")  then
    FindLabel = "Fl" &" RB"
  end if
  if ( [LITCHR]  = "fixed") AND ( [COLOUR] = "3,2")  then
    FindLabel = "F" &" RB"
  end if
  if ( [LITCHR]  = "occulting") AND ( [COLOUR] = "3,2")   then
    FindLabel = "Oc" &" RB"& [SIGPER] & "s " & [HEIGHT] & "m "& [VALNMR] & "M"
  end if
  if ( [LITCHR]  = "quick-flashing") AND ( [COLOUR] = "3,2")   then
    FindLabel = "Q" &" RB"
  end if
  if ( [LITCHR]  = "flashing") AND ( [COLOUR] = "blue")  then
    FindLabel = "Fl" &" Bu"
  end if
  if ( [LITCHR]  = "fixed") AND ( [COLOUR] = "blue")  then
    FindLabel = "F" &" Bu"
  end if
  if ( [LITCHR]  = "occulting") AND ( [COLOUR] = "blue")   then
    FindLabel = "Oc" &" Bu"& [SIGPER] & "s " & [HEIGHT] & "m "& [VALNMR] & "M"
  end if
  if ( [LITCHR]  = "quick-flashing") AND ( [COLOUR] = "blue")   then
    FindLabel = "Q" &" Bu"
  end if
  if ( [LITCHR]  = "flashing") AND ( [COLOUR] = "yellow")  then
    FindLabel = "Fl" &" Y"
  end if
  if ( [LITCHR]  = "fixed") AND ( [COLOUR] = "yellow")  then
    FindLabel = "F" &"Y"
  end if
  if ( [LITCHR]  = "occulting") AND ( [COLOUR] = "yellow")   then
    FindLabel = "Oc" &" Y"& [SIGPER] & "s " & [HEIGHT] & "m "& [VALNMR] & "M"
  end if
  if ( [LITCHR]  = "quick-flashing") AND ( [COLOUR] = "yellow")   then
    FindLabel = "Q" &" Y"
  end if
  If [LITCHR] = "isophased" then
    FindLabel = "Iso" & [SIGPER] & "s " & [HEIGHT] & "m "& [VALNMR] & "M"
  end if

End Function