如果有多个值，有没有办法让这段VBA代码找到下一个相同的值？

Function FindNextSameValue(targetValue As Variant, valuesArray As Variant) As Long
    Dim currentIndex As Long
    Dim totalValues As Long
    
    currentIndex = Application.WorksheetFunction.Match(targetValue, valuesArray, 0)
    totalValues = UBound(valuesArray)
    
    Do While currentIndex < totalValues
        If valuesArray(currentIndex + 1) = targetValue Then
            FindNextSameValue = currentIndex + 1
            Exit Function
        End If
        currentIndex = currentIndex + 1
    Loop
    
    ' 如果没有找到下一个相同的值，返回-1
    FindNextSameValue = -1
End Function