VBA数组ConutA()计数问题

代码如下，ConutA的输出结果是11而不是预测的5，求解答，谢谢

'统计个数
Sub t11()

    Dim arr1, arr2(0 To 10)
    Dim x
    arr1 = Array("a", 3, "", 4, 6)

    For x = 0 To 4
        arr2(x) = arr1(x)  'arr2只有前5个元素有值
    Next

    MsgBox "数组2中数字的个数是" & Application.count(arr2)  '输出3
    MsgBox "数组2中有数据的元素个数是" & Application.CountA(arr2) '输出11
    Stop

End Sub

定义数组的时候就规定了位数吧