Программа для вычисления определенного интеграла методом трапеций - VB

Private Sub Command1_Click()
Dim s!, x!, f1!, f2!
s = 0
For x = 1 To 2 Step 0.014
f1 = x^3/(3+x)
f2 = (x+0.014)^3/(3+x+0.014)
s = s + (f1 + f2) / 2 * 0.014
 
Next x
MsgBox "Определенный интегралл = " & s
End Sub