明细表中的单件重量

请问各们大侠，怎么实现在明细表中单件重量的自动生成？

新建一个空白文本文件，把下面的内容复制进去
Public Function CalMass(ByVal Density As Double) as double
    Set SEApp=GetObject(,"Solidedge.Application")
    Set doc=SEApp.ActiveDocument
        Set body =Doc.Models(1).body
        vol=body.Volume               
        CalMass=vol*Density   
End Function
然后保存，把文件的扩展名改为bas。
打开一个零件，在变量表中添加一个变量mass，在公式一栏中选择函数，再选择Visual Basic，在对话框中指定刚才保存的文件。单击下一步，会让你填入参数，填入变量表中的密度变量名，然后结束。在mass的前面打上钩，让他在文件属性的自定义中出现。然后，再把后面的显示名称改为单重。OK，把这个文件保存成模版。以后就可以用了。

我试过啦，可以当我选择保存后的这个文件时，会提示“”没有函数被选定“是怎么回事？能不能再讲的详细一点呀，谢谢！！