VBA pass multiple arguments into function within for Loop - vba

Question

I have a function which returns a stock price for a given day. If the value returned is empty then a Do Until loop decreases the date by 1 and calls the function again with the new date. Once Do Until condition is met and no price has been found, the price is set to 0.
Code snippet below illustrates how a working version of this code works:
Dim Date1 As Date
Dim r As Variant
Dim Price1 As Variant
Dim arg1 As Variant
Dim arg2 As Variant
Dim counter As Integer
r = Function1(arg1, arg2, Date1, Date1)
Price1 = r(0, 0)
Do Until IsEmpty(Price1) = False And counter <= 10
Date1 = Date1 - 1
counter = counter + 1
r = Function1(arg1, arg2, Date1, Date1)
Price1 = r(0, 0)
If counter = 10 Then
Price1 = 0
End If
Loop
Now, i am trying to recreate this code so that i can pass two dates into it and retrieve two different prices for their respective days (having also gone through the Do Until routine in the case of empty results).
Thus far, I've been trying to use the 'For' loop along with various 'If' Statements to pass the arguments in the correct way but none have worked.
My latest attempt along with the Logic can be seen below:
On iteration 1, pass Date1 into function, retrieve Price 1 and assign this to the variable PriceT.
On iteration 2, pass Date2 into function, retrieve Price 2 and assign this to the variable PriceTX, then Exit loop.
Dim Dates(0 To 1) As Date
Dim Count As Integer
Dim counter, PriceT, PriceTX, arg1, arg2, x, y, j As Variant
For Count = 1 To 2
If Count = 1 Then j = Date1 Else j = Date2
x = Function1(arg1, arg2, j, j)
y = x(0,0)
Do Until IsEmpty(y) = False And counter <= 10
j = j - 1
counter = counter + 1
x = Function1(arg1, arg2, j, j)
y = x(0, 0)
If counter = 10 Then
y = 0
End If
Loop
If Count = 1 Then y = PriceT Else y = PriceTX
Next
I would like to mention that i'm seeking a neat and highly optimized solution, i'm trying to avoid replicating the working code twice and doubling the amount of lines (though i know that would work as I've already tried it.)
I don't really understand how else to approach this. Any advice will be greatly appreciated.

Answer 1

I may have missed the point, but you may simply want:
PriceT = func1(Date1)
PriceTX = func1(Date2)
Function func1(j As Date) As Variant
x = Function1(arg1, arg2, j, j)
y = x(0, 0)
Do Until IsEmpty(y) = False And counter <= 10
j = j - 1
counter = counter + 1
x = Function1(arg1, arg2, j, j)
y = x(0, 0)
If counter = 10 Then
y = 0
End If
Loop
func1 = y
End Function