Правильный перенос процедуры из проекта в Activexdll - VB

Формулировка задачи:

Этот вопрос я частично затрагивал в теме https://www.sql.ru/forum/1134626/licenzionnyy-kod-pri-ustanovki-programmy
Там этот вопрос уклонялся от темы , поэтому решил создать именно узконаправленную!
В интернете прочитал о том как это делается. В одних источниках пишут что можно передавать по ссылке, тогда нужно использовать модификатор ByRef. Но в прошлой теме пользователь отписал другое https://www.sql.ru/forum/actualutils.aspx?action=gotomsg&tid=1134626&msg=17076736
Например мне нужно передать простейшую процедуру в dll.

Private Sub Test()
dim a as integer
a=5
End Sub

Я думал это сделать так:

Sub Test(ByRef a as integer)
b=a
End Sub

Но в таком виде при каждом изменении переменной а в основном проекте, переменная b в dll не будет изменяться. А мне как раз нужно чтобы менялась переменная b.
Подскажите пожалуйста как правильно записать в данном случае.
Заранее благодарен за помощь.

Решение задачи: «Правильный перенос процедуры из проекта в Activexdll»

textual
                            Листинг программы 
                        

                            Dim dll2 As Object
         Set dll2 = CreateObject("CalcMod1.Class1")
              Napor = dll2.MyFuncVB(VB) - dll2.MyFuncNB(NB) 
              Generaciia = dll2.MyFuncVelG(VelG) 
              Pritok = dll2.MyFuncVelP(VelP)

                        