Tyran,

aha, das wusste ich nicht. - Na, wenn ich die Methode an diese Beschränkung anpasse, kommt das hier heraus:

Code:
Dim Y As Single
Dim X As Single

X = 1000

Y =  -0.000000000000020465*X
Y = -0.00000000014249 + Y
Y = Y*X
Y =  0.00000188 + Y
Y = Y*X
Y = 0.00506 + Y
Y = Y*X
Y = 0.01499 + Y

End
Das sind dann auch schon 8 Zeilen. Ob das dann noch schneller als Deine Methode ist, hängt davon ab, wieviel Zeit die (X^n)-Operation braucht. Kannst's ja mal versuchen !

Ciao,

mare_crisium