自定义函数判断数组是否为空

Function EmptyArrary(ByRef x() As String) As Boolean
     Dim tempStr As String
     tempStr = Join(x,",")
     EmptyArrary = LenB(tempStr) <= 0
End Function