怎么通过字符串调用函数、对象

Question

EbExecuteLine可以通过字符串调用对象等，那怎么调用函数？如：
result=fun1(p1)
fun1：函数
p1：对象类型的参数，form等
当 “fun1(p1)”是字符串时，怎么实现？

Answer 1

dim w
w="fun1(p1)"
select case w
       case "fun1(p1)"
          call fun1(p1)
       ......
end select

Answer 2

w是字符类型
W 和 fun1(p1)之间类型怎么转换？

Answer 3

dim i
i=fun1(p1)
若是执行何必考虑执行结果传给谁呢？ 随便找个万能型的不就的了
dim w，i
w="fun1(p1)"
select case w
       case "fun1(p1)"
          i= fun1(p1)
       ......
end select

Answer 4

也许我没说清楚。
W是个变量，w="fun1(p1)",w="fun2(p1)",w="fun3(p2)",w="fun4(p3)"... fun1,p1也是变量.
W是Variant的，但“fun1(p1）”赋给W后，W就是字符型的了
你的i= fun1(p1)这句中的fun1是函数，p1已经不是字符串了
一句话：W是字符变量，怎么针对不同的W值构造形如：i= *(**)的语句。