For FuelPounds = 0 To 400 Step 50
Dim FuelMultiplier As Float = -3.79167E-08 * Power(FuelPounds, 4) + 3.79167E-05 * Power(FuelPounds, 3) - 1.03208E-02 * Power(FuelPounds, 2) + 1.45083 * FuelPounds
Log(FuelPounds & " " & NumberFormat2(FuelMultiplier, 1, 1, 1, False))
Next