Пожалуйста!!!!Помогите исправить программу на Visual Basic
у меня завтра сдача практики по Visual Basic, пожалуйста помогите вставить недостающие операторы в программу!

Интегрирование методом трапеций с оценкой точности.
Считается интеграл функции F на отрезке [a,b].
function IntegralTrap(a:Real;b:Real;Epsilon:real):real;



Public Function IntegralTrapezium(ByRef a As Double, _
ByRef b As Double, _
ByRef Epsilon As Double) As Double
Dim Result As Double
Dim i As Long
Dim n As Long
Dim h As Double
Dim s1 As Double
Dim s2 As Double

n = 1#
h = b - a
s2 = h * (F(a) + F(b)) / 2#
Do
s1 = s2
s2 = 0#
i = 1#
Do
s2 = s2 + F(a - h / 2# + h * i)
i = i + 1#
Loop Until Not i <= n
s2 = s1 / 2# + s2 * h / 2#
n = 2# * n
h = h / 2#
Loop Until Not Abs(s2 - s1) > 3# * Epsilon
Result = s2

IntegralTrapezium = Result
End Function

в этом тексте должны быть кнопки Command и что то ещё, а я не успеваю разобраться что и где именно((( пожалуйста, помогите!!!!!!!!!!