在Excel VBA中查找Object/ArrayList的最后一个元素

我试图找出如何在Object/ArrayList中找到最后一个元素。我不断得到类型不匹配错误或“数组预期”错误

Sub-GetDates（）
Dim validToDates_ArrayList作为对象
设置validToDates_ArrayList=CreateObject（“System.Collections.ArrayList”）
.
.
.
Dim date_键作为变量
对于每个日期，请输入validToDate dict.Keys
validToDates_ArrayList.Add validToDate_dict（日期键）
下一个日期
validToDates_ArrayList.Sort
Dim arraylength为整数
arraylength=ArrayLen（validToDates_ArrayList）使用
.Count
建议非常有效。固定代码如下：

Sub GetDates()
    Dim validToDates_ArrayList As Object
    Set validToDates_ArrayList = CreateObject("System.Collections.ArrayList")
    .
    .
    .

    Dim date_key As Variant
    For Each date_key In validToDate_dict.Keys
        validToDates_ArrayList.Add validToDate_dict(date_key)
    Next date_key

    validToDates_ArrayList.Sort

    Dim arraylength As Integer

    arraylength = validToDates_ArrayList.Count

    Dim last_ValidToDate As Date
    last_ValidToDate = validToDates_ArrayList(arraylength - 1)


End sub

使用
validToDates\u ArrayList.Count
怎么样？@PeterT哦，我没有意识到我可以对对象/ArrayList使用
.Count
。这非常有效。谢谢
Sub GetDates()
    Dim validToDates_ArrayList As Object
    Set validToDates_ArrayList = CreateObject("System.Collections.ArrayList")
    .
    .
    .

    Dim date_key As Variant
    For Each date_key In validToDate_dict.Keys
        validToDates_ArrayList.Add validToDate_dict(date_key)
    Next date_key

    validToDates_ArrayList.Sort

    Dim arraylength As Integer

    arraylength = validToDates_ArrayList.Count

    Dim last_ValidToDate As Date
    last_ValidToDate = validToDates_ArrayList(arraylength - 1)


End sub