letzte gerade Ziffer eines Wertes

Hallo Ihr!

Ich habe per User-Click einen Datensatz auswählen lassen. Diesem Datensatz ist eine Zahlenkolonne zugeordnet. Ich möchte nun diese Zahlenkolonne hinter der letzten geraden Ziffer abschneiden. Hat jemand eine Idee, wie ich das am einfachsten hinbekomme?

Gruß
André
Hallo nochmal. Hab das Problem allein gelöst, hier der Vollständigkeit halber der Code.

'Letzte gerade Zahl bestimmen
Posi = 0
zahl = 0
Liste = {0,1,2,3,4,5,6,7,8,9,}
For each j in Liste
wert = gebietzahl.middle(9-j,1)
half = wert.AsNumber/2
If ((half.round = half) AND (wert.AsNumber 0)) Then
Posi = 10-j
zahl = wert
Break
End
End
--------------
Gruß
André