有没有其他方法可以在VBA中获得dateTime的第二次出现？

Function GetSecondDateTime(ByVal dataRange As Range, ByVal dateTime As Date) As Date
    Dim cell As Range
    Dim count As Integer
    
    count = 0
    
    For Each cell In dataRange
        If cell.Value = dateTime Then
            count = count + 1
            If count = 2 Then
                GetSecondDateTime = cell.Value
                Exit Function
            End If
        End If
    Next cell
    
    ' 如果没有找到第二次出现的dateTime，则返回一个空值
    GetSecondDateTime = ""
End Function