Udf paramarray

I want to be understand use paramarray
This is my problem
In (a1:a20) contain date,string,numeric
I want use udf paramarray to sum.count of date,string,numeric

 Function test(paramarray x())
Dim r ,i&
For each r in x()
If isdate(r.value2) = true then
s= s & "," & r.value2
Else if isnumeric(r.value) then

s=s&","&r.value
Else
s =s& ","&r.value
End if
Next r
Test=ubound(s)
End funtion

While i am use function in b1 and drag to d1
In b1=.count (date),c1=.count(string) and d1=.count(numeric)