Solicitud de ejecución de un programa.

¿Podria alguien,por favor, intentar ejecutar el programa al que corresponde el codigo de instrucciones que muestro más abajo?Escriba el código de instrucciones en una hoja de cálculo excel de la versión adecuada(ignoro si la versión es la del 2017 o una anterior; la más antigua es la del 2003, pero la del 2003 no es la adecuada).Si intenta ejecutar con éxito el programa, envieme, por favor, el enlace del código de instrucciones.El código es el siguiente:

Public Function partic(n)
dim(40,40)
dim i,s,h,k

if n=1 then partic=1:exit function
k=n
for i=1 to n
a(1,i)=1
a(i,i)=1
next i

for h=2 to n
for i=2 to h-1
m=h-i
s=0
for j=1 to i:s=s+a(j,m):next j
a(i,h)=s
next i
next h
for h=1 to n
s=0
for i=1 to k
s=s+a(i,h)
next i
next h

partic=s

end function












8