Переведите пожалуйста в vba

[Никита1997]

var
a,b,kol,max,i,del,otv:longint;
begin
read(a,b);
otv:=a;
for i:=a to b do
begin
kol:=1;
for del:=2 to i do
begin
if((i mod del) =0) then
begin
kol:=kol+1;
end;
end;
if(i=a) then max:=kol;
if(max<=kol) then
begin
otv:=i;
max:=kol;
end;
end;
writeln(otv);
end.

[Alex11223]

Тут не бюро переводов чужих лаб.

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.