很简单，把下一句改一下就好：haha()‘这里提示错误 改成：haha ‘这里就不出错误提示了 :) 原因：调用自定义过程时，可以带具有确定值的参数，也可以不带参数。但不带参数时，绝不要再写那对空括号（有画蛇添足之嫌啊！）楼主可以试一试。
你把 Static a As Integer 放在 sub 外面其实 你 在 sub 外面，用 dim a As Integer 就可以
