在VBA中，可以使用IsArrayEmpty函数来判断一个数组是否为空。下面是一个示例代码：
Sub CheckArrayIsEmpty()
Dim arr() As Variant
' 初始化数组
ReDim arr(1 To 5)
' 判断数组是否为空
If IsArrayEmpty(arr) Then
MsgBox "数组为空"
Else
MsgBox "数组不为空"
End If
End Sub
Function IsArrayEmpty(arr As Variant) As Boolean
IsArrayEmpty = IsEmpty(arr) Or UBound(arr) < LBound(arr)
End Function
这个示例代码中，先声明一个数组arr，然后使用ReDim语句初始化数组。接着调用IsArrayEmpty函数来判断数组是否为空。IsArrayEmpty函数使用IsEmpty函数和UBound函数来判断数组是否为空，如果数组为空，或者数组的上限索引小于下限索引，则判断数组为空。
