Function sucetparam(ParamArray vstup() As Variant) As Long
Dim pocitadlo As Long
sucetparam = 0
For Each prvek In vstup()
 If IsObject(prvek) Then
   For Each alabala In prvek
   If IsNumeric(alabala) Then sucetparam = sucetparam + alabala
   Next alabala
 ElseIf IsNumeric(prvek) Then sucetparam = sucetparam + prvek
 End If
Next prvek
End Function