Mode function using WorksheetFunction produces error

[GKIL67]

If I use

?WorksheetFunction.Mode(Array(1,2,5,8,12,13,1,1))

it works OK, but the following function gives the Error "Unable to get the Mode property of the Worksheetfunction class".

Function Mode(strString As Variant)
'?Mode("1,2,5,8,12,13,1,1")
Dim VarOut As Variant

VarOut = Array(Split(strString, ","))
Mode = WorksheetFunction.Mode(VarOut)

End Function

Can somebody help to solve it out?
Thank you in advance!

 

[GKIL67]

Solved. It should be:

Function Mode(ParamArray dblNos()) As Double
'?Mode(1,2,5,8,12,13,1,1) returns 1.

Mode = WorksheetFunction.Mode(Array(dblNos))

End Function