Нужно срочно перевести из паскаля в VBA. Буду очень благодарен

[Vanesylim]

Var a,b,c:integer;
begin
Writeln('vvedite a,b,c');
Readln(a,b,c);
Writeln('a=',a,' b=',b,' c=',c);
if(a<b+c)and(b<a+c)and(c<a+b) then write('yes')
else write('no');
readln;
end.