Például ha a szubrutinból függvényt csinálsz :)

 

Vagy:

 

Sub Összeadás(paraméter1, paraméter2, eredményt_ide)

    eredményt_ide = paraméter1 + paraméter2

End Sub

 

Sub Teszt

   Dim összeg As Long

   Összeadás 1, 1, összeg

   MsgBox "Egy meg egy az annyi mint " & összeg

End sub

 

 

Lényeges, hogy az eredményt_ide változó ByRef legyen átadva a szubrutinnak. De mivel ez az alapértelmezés, nem kell feltétlenül odaírni. Csak ne ByVal legyen.