Kuriose Formel

Hello World

Wie lautet das Ergebnis?

Sub Ergebnis()

For x = 0 To 5

x1 = x1 & Chr(x * (x * (x * (x * (-0.75 * x + 7.2917) - 22.5) + 16.708) + 28.25) + 72)

Next x

For x = 0 To 6

x2 = x2 & Chr(x * (x * (x * (x * (x * (0.425 * x - 6.8667) + 40.833) - 109.58) + 122.24) - 23.05) + 87)

Next x

MsgBox x1 & x2

End Sub