运行时错误。
你代码中没有错误处理。。
出来这个你也不知道是哪句代码出错了。

你这样：
把你的代码中加上出错处理。
像这样：

public function xxxxxxxx() as long 
    on error goto ErrX
xxx
xxx
xxx
exit function

ErrX:
    msgbox "执行错误：" & _
           "[ClassBill].[Public Function xxxxxxxx] : " & vbCrLf & Err.Description
end function

如果你的代码。函数。都这样做以后。
如果代码中万一有不可预料的错误发生。
会直接转到下面的代码。弹出消息，显示出错的函数名。出错的描述。

因为运行时错误是不可预料的。可能是有一个控件你打包的时候没打进去。也可能是程序运行的时候要用的文件没有找到。或是执行的时候使用的系统帐户没有执行操作的权限。

你先试一下看看在别的SP3的机器上是不是有这个问题。看看是不是SP补丁的事。
然后在代码中加入出错处理。