XIRR in vba

[ENOBYZARC]

Hola, I am trying to use XIRR function en Access vba but i received an 1004 error, this is my function. What can go wrong?

Public Function dblXIRR() As Double


Dim objExcel As Object
Dim strValues() As String
Dim varDates(2) As Variant


Set objExcel = CreateObject("Excel.Application")


strValues = Split("1000,500,-2500", ",")


varDates(0) = CDate("01/01/2010")
varDates(1) = CDate("01/06/2010")
varDates(2) = CDate("31/12/2010")


dblXIRR = objExcel.WorksheetFunction.XIRR(strValues, varDates)


End Function

[ItsMe]

If I recall correctly, you need to set the size of the string array at time of dimension
Dim strValues(2) As String

Also, for Access, the Variant type will handle an array. So....
Dim varDates As Variant

and (maybe - just air code here)
varDates = (CDate("01/01/2010"), CDate("01/06/2010"), CDate("31/12/2010"))