Code:
dim zahl as integer
dim tmpstr as string * 5
dim tmpint as integer
zahl = 1234

tmpstr = str(zahl)
tmpint = val(mid(tmpstr,1,1)) + val(mid(tmpstr,2,1)
tmpint = tmpint + val(mid(tmpstr,3,1)
tmpint = tmpint + val(mid(tmpstr,4,1)
ferdisch Bild  

Das Ganze ginge natürlich auch ohne String, nur mit Zahlen Bild  
Wenn dus wissen willst wie, einfach fragen

Gruß
Chris