主题：VB函数如何返回两个值

用VB编写函数，如何返回两个或两个以上的数值？

Function F1(Formula,P1,P2)

    Dim i

    i=.......

     F1=i

End Function

这样只能返回一个值，如何返回两个值？例如，我想输入一个值，返回该值的3倍和4倍值

Function F1(Formula,val)

    Dim i1 , i2

    i1 = val * 3

    i2 = val * 4

End Function

即返回值1=val * 3

   返回值2=val * 4