Function TestFun(Tstr)    TStr = "Fun2"End FunctionSub TestSub(TStr)    Tstr = "Sub2"End SubDim Fun, [Sub]Fun = "Fun1"Call TestFun(Fun)Msgbox Fun     '打印出来 "Fun2"Fun = "Fun1"TestFun(Fun)Msgbox Fun  ' 打印出来 "Fun1"[Sub] = "Sub1"Call TestSub([Sub])Msgbox [sub]    '打印出来 "Sub2"[Sub] = "Sub1"TestSub [Sub]Msgbox [Sub] '打印出来 "sub2"

结论：

1、 带参数的函数 当参数没有显示指明是值调用还是 引用调用时候 Call 函数 是引用调用，不带Call 是值调用

2、带参数的过程，当参数没有显示指明调用值或者引用调用时，无论带不带Call 调用都是引用调用