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