菜鸟询问一个过程调用问题

Question

我写的一段代码：模块中：
Public Function zengjiafujian(filename() As String)
    Dim CommonDialog1 As New FileSystemObject
    CommonDialog1.ShowOpen
    wenjianming = CommonDialog1.FileTitle
    If CommonDialog1.filename <> "" Then '在列表框中显示添加的附件名
       list2.AddItem (wenjianming)
    End If
    ReDim Preserve filename(2, fujiangeshu) As String
    filename(0, fujiangeshu) = CommonDialog1.filename '保存每次选择上传附件在操作员电脑中的位置
    strfilname = Format(Now, "yyyymmddhhmmss") '把当前时间字符化，以便创建保存在数据库中的文件名，防治重复
    filename(1, fujiangeshu) = CStr(yonghuname & strfilname & wenjianming) '创建附件在数据库中保存的文件名
    filename(2, fujiangeshu) = wenjianming '创建附件在数据库中显示的文件名
    fujiangeshu = fujiangeshu + 1
    CommonDialog1.filename = ""
    zengjiafujian = "yes" '设置一个变量用来确定是否增加了附件
End Function
然后在窗体代码中调用这个过程：
Private Sub Command9_Click()
    Call zengjiafujian(filename)
End Sub出现错误：编译错误，缺少过程，不是变量。请大侠帮我看看，什么原因，怎么修改？谢谢！！

Answer 1

发错板块了，大家就不用回复了。