Feldberechnung, Wenn/dann

Guten Tag,

Ich bräuchte Hilfe bei einer Wenn-Dann-Abfrage bei der Feldberechnung.
Ich habe mir den Code von http://www.anuva.de/service_arcforum.php?action=vthread&forum=2&topic=5633 genommen und etwas umgebaut. Leider funktioniert das Skript nicht und ich kenne mich weder mit Python noch mit VB genug aus, um den Fehler zu finden. Könnt Ihr mir weiterhelfen?
Die ausgangsfelder haben das Format "Double", die Bodenart "Text"
Code:
Pre-logic script code:
dim val
dim val2
dim val3
dim output
val = [ton]
val2 = [schluff]
val3 = [sand]
if val >= 0 and val <= 5 and val2 >= 10 and val2 <= 25 and val3 >= 70 and val3 <= 90 then
output = su2
elseif val >= 0 and val <= 5 and val2 >= 0 and val2 <= 10 and val3 >= 85 and val3 <= 100 then
output = ss
elseif val >= 5 and val <= 8 and val2 >= 10 and val2 <= 25 and val3 >= 67 and val3 <= 85 then
output = sl2
elseif val >= 0 and val <= 8 and val2 >= 25 and val2 <= 40 and val3 >= 52 and val3 <= 75 then
//nochmal 25 zeilen.....
end if
---------------------
bodenart= output

Grüße,
Wolfgang