>>384
functionなら1行で書ける!
と思ったけど、よく見たらどっちも2行かかるな。

Dim A
A = function()

Dim A
sub(ByRef A)

functionのメリットって何だろ?
1個しか返せないし。