중적분(x-3y^2)dydx

에서 x의 범위와 y의 범위를 text상자에 넣어서 적분값을 계산하는 문제를
푸려고 합니다. 공식으로 하면 ㅠㅠ 쉽게 할수 있는데 구분구적법을 사용해서 풀라고 하십니다...ㅠ

 
y의 범위 b0<= y <=b1
x의 범위 a0<= x <=a1
dx = 0.01



Private Sub Command1_Click()


Dim a0 As Double
Dim a1 As Double
Dim b0 As Double
Dim b1 As Double
Dim x As Double
Dim y As Double
Dim gap As Double
Dim gap1 As Double


Text1.Text = a0
Text2.Text = a1
Text3.Text = b0
Text4.Text = b1

 

For y = a0 To a1 Step 0.01

gap = gap + (x - 3 * y * y) * 0.01

Next y

 

For x = b0 To b1 Step 0.01
gap = gap + (gap * 0.01)
Next x


Label1.Caption = gap

End Sub


안돌아가는 머리통 열심히 굴려서 겨우 만들었는데 범위에 계속 다른 수를 넣어봐도 결과가 0만 나옵니다 ㅠ
코드를 잘못 짠건지 설정이 잘못된건지 ㅠㅠㅠ
조언좀 부탁드립니다....
ㅠㅠ