Помогите переписать процедуру с Delphi на VB

[anakinskyoker]

Здравствуйте. Мне требуется созданную на Delphi процедуру для нахождения корней полиномов переписать на язык VB. Почему именно на VB? Так нужно, ибо дальше работать именно с ним т.к пишем аддон на API к системе Autodesk Inventor, а объектная модель ее на VB.

Вот кусок кода, что нужно переписать на VB:

unit zerofun;
interface
uses math;
 type
        funtype=function(x:double):double;
   
   procedure ppmetod(a,b,eps,h:double; fun:funtype; var n:integer; var x);
 implementation

procedure ppmetod(a,b,eps,h:double; fun:funtype; var n:integer; var x);
  
     var f:double; w:integer;
         xi,c,r:extended;
     xx:arraytype absolute x;
     begin
      c:=h; n:=0; xi:=a; f:=fun(xi);
      if f>0 then w:=1 else w:=-1;
      repeat
       xi:=xi+c; r:=xi-c; if r>=b then exit;
       f:=fun(xi);
       if (f*w/c<0) or (r=xi) then
        begin
         c:=-c/4;
         if (abs(c)<eps/4) or (r=xi) then
          begin
           n:=n+1;
           xx[n]:=xi;
           c:=h; w:=-w;
          end;
        end;
        until false;
   end;

Вот что написал я:

 Public Sub ppmetod(ByVal a As Double, ByVal b As Double, ByVal eps As Double, ByVal h As Double, ByVal fun As, ByVal n As Integer, ByVal x As Array)
        Dim f As Double
        Dim w As Integer
        Dim xi, c, r As Double
        Dim xx() As Double
        c = h
        n = 0
        xi = a
        f = fun(xi)
        If f > 0 Then w = 1 Else w = -1

        Do
            xi = xi + c
            r = xi - c
            If r >= b Then Exit Do
            f = fun(xi)
            If (f * w / c < 0) Or (r = xi) Then
                c = -c / 4
            End If
            If (Abs(c) < eps / 4) Or (r = xi) Then

                n = n + 1
                xx(n) = xi
                c = h
                w = -w
            End If
        Loop
    End Sub

У меня возникает вопрос как написать аналог

 type
        funtype=function(x:double):double;

на бейсике, чтобы можно было использовать функцию как параметр другой функции.
Спасибо.

[Человек_Борща]

fun - внешная функция вычисляющая что-то из передаваемой туда x.
Можно так:

unit zerofun;
interface
uses math;

   
   procedure ppmetod(a,b,eps,h:double; var n:integer; var x);
 implementation

function fun(x:double):double
begin
  //Магия
end;

procedure ppmetod(a,b,eps,h:double; var n:integer; var x);
  
     var f:double; w:integer;
         xi,c,r:extended;
     xx:arraytype absolute x;
     begin
      c:=h; n:=0; xi:=a; f:=fun(xi);
      if f>0 then w:=1 else w:=-1;
      repeat
       xi:=xi+c; r:=xi-c; if r>=b then exit;
       f:=fun(xi);
       if (f*w/c<0) or (r=xi) then
        begin
         c:=-c/4;
         if (abs(c)<eps/4) or (r=xi) then
          begin
           n:=n+1;
           xx[n]:=xi;
           c:=h; w:=-w;
          end;
        end;
        until false;
   end;

[anakinskyoker]

Сообщение от Человек_Борща

fun - внешная функция вычисляющая что-то из передаваемой туда x.

Спасибо за ответ, но вы не поняли сути вопроса, нужно эту процедуру переписать на бейсике, причем как-то указать эту fun в качестве параметра процедуры ppmetod. Подобная магия на VB у меня не работает

Function fun(ByVal x As Double) As Double

End Function

Public Sub ppmetod(ByVal a As Double, ByVal b As Double, ByVal eps As Double, ByVal h As Double, ByVal fun As Double, ByVal n As Integer, ByVal x As Array)