Benutzerdefinierte Funktionen und Zwischenwerte

Ich habe folgende frage:

Gibt es eine Möglichkeit bei einer Benuzterdefinierten Funktion Zwischenwerte in eine Tabelle zurück zu geben?

Beispiel:

Function Berechnung( _
dLength As Double, _
dWidth As Double, _
dHeight As Double) As Variant

Dim arr(0 To 2) As Double
arr(0) = dLength * dWidth
arr(1) = dLength * dWidth * dHeight
arr(2) = 2 * (dLength * dWidth + dLength _
* dHeight + dWidth * dHeight)
Berechnung = arr(1)
Zwischenwert= arr(0)
End Function

Wenn ja würde ich mich über eine kurze hilfestellung freuen.

Danke Tobias