Помогите перевести код из Pascal в VBA !! буду очень благодарен!

program spusk;
uses crt;
const n=2; k=2;
type vector=array[1..n] of real;
var i:integer;
d,e,e1,h,h1,z:real;
x:vector; ch:char;
procedure pausa;
begin
writeln;
writeln ('Для выхода нажмите любую клавишу…');
repeat ch:=readkey until ch <> '';
end;
function f(x:vector):real;
var a,b:real;
begin a:=x[1]*x[1]+x[2]-11;
b:=x[1]+x[2]*x[2]-7;
f:=a*a+b*b;
end;
procedure scan (i:integer);
var a:boolean;
d1,z1:real;
begin z:=f(x);
repeat d1:=abs(h1); x[i]:=x[i]+h1; z1:=f(x); a:=(z1>=z);
if a then h1:=-h1/k;
z:=z1;
until a and (d1<e1);
end;
begin
clrscr;
writeln ('Введите координаты начального вектора (x1,x2):');
for i:=1 to n do read (x[i]);
writeln ('Задайте точность нахождения точки min f(x):');
read (e);
h:=0.2; e1:=e/k;
repeat d:=abs(h);
for i:=1 to n do
begin
h1:=h; scan (i);
end;
h:=h/k;
until d<e;
writeln ('Точка минимума: x1=',x[1]:9:6,' ','x2=',x[2]:9:6);
writeln ('Погрешность:',e:9:6);
pausa;
end.