Function pokus(ParamArray vstup() As Variant) As Integer

Dim bunka As Variant
Dim prvek As Variant
Dim pocitadlo As Integer

pocitadlo = 0

For Each bunka In vstup()
        If IsObject(bunka) Then
           For Each prvek In bunka

          If IsNumeric(prvek) Then
          pocitadlo = pocitadlo + 1
         End If

          Next prvek
         End If

         Next bunka

  pokus = pocitadlo

End Function