Excel VBA вызывает сабвуфер из другого сабвуфера с несколькими входами, выходами разных размеров

Я хотел бы вызвать подпункт из другого подпункта внутри того же модуля. Первая подпрограмма была бы моим основным кодом, и там я бы назвал вторую подпрограмму. Вторая подпрограмма получает несколько входных данных в виде целых, двойных, двойных массивов и двойных матриц. Размер массивов и матриц известен и сохраняется в целочисленной переменной. Сабвуфер также возвращает несколько выходов. Итак, я хотел бы сделать что-то вроде этого.

sub Main()
    Nc As integer
    Dim kij(1 To Nc, 1 To Nc), xi(1 to Nc), a1 As Double
    'I assign values to my variables from the excelsheet e.g. Nc=Cells(1,1) etc.

    CalculateA(Nc,kij, xi, a1, a)
    Cells(5,5)=a
end sub

sub CalculateA(Nc as integer,kij as matrix double, xi as array double, a as Double)
    a=0
    For i=1 To Nc
       For j=1 To Nc
          a = a + kij(i,j)*x(i)*x(j)
       Next j
    Next i
    a = a*a1
end sub

Как он узнает, какой саб является основным сабом, где он начинает работать. Могу ли я поместить вторичную подпрограмму сверху, а код как-то начинается с нижней подпрограммы?

Ответы на вопрос(3)

Ваш ответ на вопрос