为什么调用模块中的函数提示类型出错？

Question

模块中定义了一个函数：
Public Function upload(CommonDialog1 As CommonDialog, text() As TextBox)
      'open   an   internet   connection
    hOpen = InternetOpen("ftp", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
        'connect   to   the   FTP   server
    hConnection = InternetConnect(hOpen, "10.147.15.25", INTERNET_DEFAULT_FTP_PORT, "a", "a", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)    Dim FindFileData As WIN32_FIND_DATA
    Dim SearchFile As String
    If (hInet <> 0) And (hConnection <> 0) Then
        For i = 0 To 3
              hFind = FtpFindFirstFile(hConnection, SearchFile, _
                 FindFileData, INTERNET_FLAG_RELOAD Or _
                 INTERNET_FLAG_NO_CACHE_WRITE, 0)
             Do
                 If hFind = text(i).text Then
                    FtpSetCurrentDirectory hConnection, text(i).text
                 Else
                    FtpCreateDirectory hConnection, text(i).text
                    FtpSetCurrentDirectory hConnection, text(i).text
                 End If
             Loop While InternetFindNextFile(hFind, FindFileData)
        Next i
        FtpPutFile hConnection, CommonDialog1.FileName, CommonDialog1.FileTitle, FTP_TRANSFER_TYPE_UNKNOWN, 0
        MsgBox "文件上传成功", vbOKOnly, "提示信息"
    End If
End Function
然后在某个窗体调用此函数：
 Call upload(Frm_1.CommonDialog1, Frm_1.Text1)提示：类型不匹配，缺少数组或者用户定义类型请问是怎么回事？

Answer 1

Public Function upload(CommonDialog1 As CommonDialog, text() As TextBox)text() 错误了改为
Public Function upload(CommonDialog1 As CommonDialog, text As TextBox)

Answer 2

text() As TextBox  这个改成Public Function upload(CommonDialog1 As CommonDialog, text As TextBox)
  
你的函数要求输入数组参数,你却个其中的一个