Der Teiler 10000 müssen jetzt noch aus der Zahl bestimmt werden, da die Länge der Zahl ja nicht bekannt ist:
If (x > 100000) Teiler = 1000;
elseif (x > 10000) Teiler = 100;
usw.

Obwohl mir die Aufgabenstellung ja nicht so recht einleuchten mag.

pctoaster