VB вызывает ошибку Too many arguments при вызове функции

Формулировка задачи:

Добрый день,
есть функция
Declare Function function_name Lib "C:\Documents and Setting\Select.dll" _
(ByVal A1 As String, ByVal A2 As Single, ByVal A3 As Single, ByVal A4 As Single, ByVal A5 As Integer, ByVal A6 As Integer, ByVal A7 As Integer, ByVal A8 As Integer, ByVal A9 As Integer, ByVal A10 As Single, ByRef SS1 As String, ByRef SC1 As String, ByRef SR1 As Any, ByRef SS2 As String, ByRef SC2 As String, ByRef SR2 As Any, ByRef SS3 As String, ByRef SC3 As String, ByRef SR3 As Any, ByRef SS4 As String, ByRef SC4 As String, ByRef SR4 As Any, ByRef SS5 As String, ByRef SC5 As String, ByRef SR5 As Any, ByRef SS6 As String, ByRef SC6 As String, ByRef SR6 As Any, ByRef SS7 As String, ByRef SC7 As String, ByRef SR7 As Any, ByRef SS8 As String, ByRef SC8 As String, ByRef SR8 As Any, ByRef SS9 As String, ByRef SC9 As String, ByRef SR9 As Any, ByRef SS10 As String, ByRef SC10 As String, ByRef SR10 As Any, ByRef SS11 As String, ByRef SC11 As String, ByRef SR11 As Any, ByRef SS12 As String, ByRef SC12 As String, ByRef SR12 As Any, ByRef SS13 As String, _
ByRef SC13 As String, ByRef SR13 As Any, ByRef SS14 As String, ByRef SC14 As String, ByRef SR14 As Any, ByRef SS15 As String, ByRef SC15 As String, ByRef SR15 As Any, ByRef SS16 As String, ByRef SC16 As String, ByRef SR16 As Any,ByRef SS16 As String, ByRef SC16 As String, ByRef SR16 As Any) As Long
но объявить не могу, приносит ошибку (Too many arguments) что делать ?

Решение задачи: «VB вызывает ошибку Too many arguments при вызове функции»

textual
                            Листинг программы 
                        
                            Sub Test(ParamArray args() As Variant)