080.检查一个数组是否为空

'###############################################################

'函数作用：检查一个数组是否为空

'###############################################################

Public Function CheckArray(ArrayName As Variant, Optional Com As Integer = 0) As Variant

    On Error GoTo Er

    Select Case Com

        Case 0

            Do

                Ne = Ne + 1

                XT = UBound(ArrayName, Ne)

            Loop

        Case Else

            CheckArray = UBound(ArrayName, Com)

    End Select

    Exit Function

Er:

    If Com = 0 Then CheckArray = Ne ‐ 1 Else CheckArray = ‐1

End Function