Перевод кода из паскаля в Visual Basic - VB

program Proc47;
var
A,B,C,D,F,E,G,H:integer;
p,q:integer;
 
function NOD2(A,B:integer):integer;
begin
while (A <> 0)and(B <> 0) do
begin
if A >= B then A:= A mod B
else B:= B mod A;
end;
NOD2:=A+B;
end;
 
procedure Frac1(A,B:integer; var p,q:integer);
begin
p:=A div NOD2(A,B);
q:=B div NOD2(A,B);
if q<0 then begin p:=p*-1; q:=q*-1;end;
end;
 
begin
Writeln('Введите значение a, b, c, d, e, f, g, h');
read(A); read(B); read(C); read(D);
read(e); read(f); read(g); read(h);
Frac1(d*A+C*b,b*d,p,q);
Writeln(a,'/',b,'+',c,'/',d,'=',p,'/',q);
 
Frac1(f*A+e*b,b*f,p,q);
Writeln(a,'/',b,'+',e,'/',f,'=',e,'/',f);
 
Frac1(h*A+g*b,b*h,p,q);
Writeln(a,'/',b,'+',g,'/',h,'=',g,'/',h);