Составить подпрограмму-функцию в VBA для вычисления следующей функции (в приложении)

Могу с c++
#include <iostream>
using namespace std;
int main ()
{
int a, b, c, x, y; 
cin >> a >> b >> c >> x >> y;
if ( (( x  >=  a)   &&  (y  >=  b ))  ||  (( x  >=  b)  &&  (y  >=  a ))  ||  (( x  >=  a )  && (y  >=  c )) || (( x  >=  c ) && (y  >=  a )) || (( x  >=  c )  &&  (y  >=  b ))  ||  ((  x >=  b) && (y  >=  c )))
{
         cout << "YES";
}
else
{
        cout << "NO";
}
return 0;
}
a=X
b=Y
c=Z
x=длина кирпича
y=ширина

const n=9;

var marks:array[1..n,1..2] of 2..5;

i,k:integer;

begin

writeln('Оценки студентов:');

for i:=1 to n do

begin

marks[i,1]:=random(4)+2;

marks[i,2]:=random(4)+2;

writeln(i,': ',marks[i,1]:3,marks[i,2]:3);

end;

k:=0;

for i:=1 to n do

if (marks[i,1]+marks[i,2])/2<3 then k:=k+1;

writeln('Количество студентов, имеющих средний < 3 = ',k);

end.

Пример:

Оценки студентов:

1:   5  4

2:   5  4

3:   4  3

4:   5  5

5:   2  2

6:   2  3

7:   5  5

8:   3  4

9:   2  2

Количество студентов, имеющих средний < 3 = 3