Перевести готовый код из Pascal в VBA

[Ken_Watanabe]

Добрый день. Помогите перевести код с делфи/pascal в Microsoft Visual Basic(если быть точнее вот так)=>Tools=>Macros=>'name', Create. Вот код:

Program Max;
var
k,A1,A2,A,e:real;
begin
Writeln('Введите вещественное число е (е>0)=');
readln(e);
A:=2+1/2;
A1:=2;
k:=2;
while abs(A-A1) >= e do
begin
A1:=A;
A:=2+1/A1;
k:=k+1;
end;
Writeln('Первый из номеров К, для которых выполняется условие |Ak-Ak-1|Writeln('Ak-1 = ',A1);
Writeln('Ak = ',A);
end.

Вот само задачка: //Дано вещественное число е (е>0).
//Последовательность вещественных чисел Ak определяется следующим образом:
//A1=2, Ak=2+1/Ak-1, K=2.3…..
//Найти первый из номеров K, для которых выполняется условие |Ak-Ak-1|
//и вывести этот номер , а также числа Ak-1 и Ak.

[IgorGO]

как-то так:

Sub Max1()
  Dim k, A1, A2, A, e
  e = Val(InputBox("Введите вещественное число е (е>0)="))
  A = 2 + 1 / 2
  A1 = 2
  k = 2
  Do While Abs(A - A1) >= e
    A1 = A
    A = 2 + 1 / A1
    k = k + 1
  Loop
  MsgBox "условие выполняется для элемента № " & k & "  = " & A
End Sub