Как переписать программу из Turbo Pasсal в VBA c использованием функции

var
  x : array [1..10, 1..15] of integer;
  y : array [1..20, 1..12] of integer;
 
  i, j, kx, ky : integer;
 
Function Yes(a : integer) : boolean;
begin
  if (a <= 1) and (a >= 0)
  then Yes := true
  else Yes := false;
end;
 
begin
  Randomize;
 
  For i := 1 to 15 do begin
    for j := 1 to 10 do begin
      x[i,j] :=  random(100) - 50;
      write(x[i,j]:5);
      if Yes(x[i,j])
      then kx := kx + 1;
    end;
    writeln;
  end;
 
  Writeln('kx = ', kx);
  readln;
 
   For i := 1 to 20 do begin
    for j := 1 to 12 do begin
      y[i,j] :=  random(100) - 50;
      write(y[i,j]:5);
      if Yes(y[i,j])
      then ky := ky + 1;
    end;
    writeln;
  end;
 
  Writeln('ky = ', ky);
  readln;
end.