Happy eastern to you all!

I have a loop and I want that the computer give me the value which is bigger then zero and when Y(i,j) is less than zero he should give me a zero.
Just for information, in the denominator the code should choose the bigger of the two values. And the value f the fraction should be deducted by one.

I tried a bit and now he gives me all as zero with this loop.

Dim Y() As Double
ReDim Y(step + 1, step + 1)
For j = n To 1 Step -1
For i = 2 To j + 1

If Y(i - 1, j) = (CB(i - 1, j) / (WorksheetFunction.Max(Stock(i - 1, j) * cratio, Callpreis)) - 1) < 0 Then
Y(i, j) = 0

End If

Next i

Next j
Can anybody help me??

Many thanks in advance!