Label-Expression

Hallo ,

kann mir jemand bei einer Label-expression helfen?

Ich habe verschiedene Spalten die Codes beinhalten. Ein und derselbe Code (z.B. 515) kann in jeder der Spalten auftauchen. Nun möchte ich eine Autobeschriftung haben, in der die Eintrage der Spalten untereinander ([GEFAHR_01] & vbNewLine & "" & [GEFAHR_02] aufgelistet werden, nur die Nummer 515, wenn sie in den verschiedenen Spalten vorkommt, soll nicht mitbeschriftet werden. Ich habe VB-Sript (siehe unten), aber es funktioniet nicht, obwohl es stimmig aussieht. Ausserdem hätte ich gerne gewußt, wie ich & vbNewLine & "" & integriere. Hat jemand eine Lösung?

Function FindLabel ( [sp1] ,[sp2] ,[sp3] )
If ( [sp1] <> 235 ) Then
FindLabel = [sp1]
End If
If ( [sp2] <> 235 ) Then
FindLabel = [sp2]
End If
If ( [sp3] <> 235 ) Then
FindLabel = [sp3]
End If
End Function