调用一个函数返回多个结果

下面是一个通过byref的形式来定义需要返回的形参，进而达到调用一个函数，可以返回多个结果的效果。
本例中需要返回的是 aa和bb的结果。
Sub cc()
    Dim a As Integer, b As Integer, reta As Integer, retb As Integer
    a = 1
    b = 2
    test a, b, reta, retb
End Sub


Function test(a As Integer, b As Integer, ByRef aa As Integer, ByRef bb As Integer)
    aa = 2
    bb = 3
End Function