Beschriftungsausdruck zur Feldberechnung nutzen

Hallo,
ich beschrifte die Polygone in einem shape mit folgendem Ausdruck:

Function FindLabel ( [CODE1], [NEBENCODE1], [CODE1_ZUS], [CODE2], [CODE2_ZUS], [CODE3], [CODE3_ZUS])
FindLabel = [CODE1]
if trim( [NEBENCODE1]) <>"" Then
FindLabel = FindLabel & "(" & [nebencode1] & ")"
end if
if trim( [CODE1_ZUS]) <>"" Then
FindLabel = FindLabel & [CODE1_ZUS]
end if
if trim( [CODE2]) <>"" Then
FindLabel = FindLabel & "/" & [CODE2]
end if
if trim( [CODE2_ZUS]) <>"" Then
FindLabel = FindLabel & [CODE2_ZUS]
end if
if trim( [CODE3]) <>"" Then
FindLabel = FindLabel & "/" & [CODE3]
end if
if trim( [CODE3_ZUS]) <>"" Then
FindLabel = FindLabel & [CODE3_ZUS]
end if
End function

Das funktioniert prima.

Ich möchte das Ergebnis der Beschriftung in eine neue Spalte der Attribut Tabelle mittels Feldberechnung überführen.

Das klappt leider nicht, kann mir jemand helfen?

Danke und viele Grüße