Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов массива

Function AvgNegPos(A() as double, _
                            Optional i as integer=0, 
                            Optional np as integer=0, 
                            Optional sp as double=0,
                            Optional nn as integer=0, 
                            Optional sn as double=0) As Double ()
Dim Res() as Double
    if (i > Ubound(A,1)) Then
       Redim Res(1 to 2) As Double
       Res(1)=sp/np;
       Res(2)=sn/nn;
       AvgNegPos=Res
   else
       If (A(i) > 0) then AvgNegPos=AvgNegPos(A,i+1,np+1,sp+A(i),nn,sn)
       If (A(i) < 0) then AvgNegPos=AvgNegPos(A,i+1,np,sp,nn+1,sn+A(i)) 
   End if       
End Function

Function AvgNegPos(A() as double, _
                            Optional i as integer=0, 
                            Optional np as integer=0, 
                            Optional sp as double=0,
                            Optional nn as integer=0, 
                            Optional sn as double=0) As Double ()
Dim Res() as Double
    if (i > Ubound(A,1)) Then
       Redim Res(1 to 4) As Double
       Res(1)=sp/np
       Res(2)=sn/nn
       Res(3)=np
       Res(4)=nn
       AvgNegPos=Res
   else
       If (A(i) > 0) then AvgNegPos=AvgNegPos(A,i+1,np+1,sp+A(i),nn,sn)
       If (A(i) < 0) then AvgNegPos=AvgNegPos(A,i+1,np,sp,nn+1,sn+A(i)) 
   End if       
End Function