Equivalente @Elements

Function Elements( values As Variant) As Integer
On Error Goto errorHandle
Elements = 0

' Check to see we have more than one value
If Isscalar( values ) Then
Elements = 1

Else 'Non scalar value
Forall v In values
Elements = Elements + 1
End Forall

End If 'isScalar

Exit Function

errorHandle:
Error Err, "[TextLib] [Elements] (" & Cstr
( Erl ) & ")" & Chr$(13) & Error$
Exit Function

End Function