Перевести код с Delphi - VB

Private Sub Command1_Click()
Dim a, b, eps, h As Single
Dim i, n, j, k, z As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
eps = Val(Text3.Text)
j = -1
k = -10 - eps * 2
n = 50
Do While (Abs(j - k) > eps)
h = (b - a) / n
z = a
z = h + a
 
Loop
End Sub
Function y(x) As Single
y(x) = Exp(x) - x
End Function

procedure calc;
var
pres,temp,pos:real;
i,n:integer;
begin
res:=-1;
pres:=-10-eps*2;
n:=50;
while (abs(res-pres)>eps) do
        begin
        h:=(b-a)/n;
        pos:=a;
        temp:=int_func(pos);
        pos:=pos+h;
        for i:=2 to n-1 do
          begin
           temp:=temp+2*int_func(pos);
           pos:=pos+h;
          end;
        temp:=temp+int_func(pos);
        pres:=res;
        res:=temp*h/2;
        n:=n*2;
        end;