编写一个函数，用于在VBA中创建一个仅包含前一个数组中空值的新数组

Function CreateEmptyArray(arr() As Variant) As Variant()
    Dim emptyArr() As Variant
    Dim i As Long, j As Long
    
    ' 计算空值的数量
    Dim emptyCount As Long
    emptyCount = 0
    For i = LBound(arr) To UBound(arr)
        If IsEmpty(arr(i)) Then
            emptyCount = emptyCount + 1
        End If
    Next i
    
    ' 创建新数组
    ReDim emptyArr(1 To emptyCount)
    j = 1
    For i = LBound(arr) To UBound(arr)
        If IsEmpty(arr(i)) Then
            emptyArr(j) = arr(i)
            j = j + 1
        End If
    Next i
    
    CreateEmptyArray = emptyArr
End Function

Sub Test()
    Dim arr() As Variant
    Dim emptyArr() As Variant
    Dim i As Long
    
    ' 初始化原数组
    ReDim arr(1 To 10)
    arr(1) = "A"
    arr(2) = Empty
    arr(3) = "B"
    arr(4) = Empty
    arr(5) = "C"
    arr(6) = Empty
    arr(7) = "D"
    arr(8) = Empty
    arr(9) = "E"
    arr(10) = Empty
    
    ' 调用函数创建新数组
    emptyArr = CreateEmptyArray(arr)
    
    ' 输出新数组
    For i = LBound(emptyArr) To UBound(emptyArr)
        Debug.Print emptyArr(i)
    Next i
End Sub