EVALUATE Method error

Sub test()

Dim i As Long

i = Evaluate("=IFERROR(INDEX(A:A,1/MOD(LARGE(INDEX(($A$1:$A$20>=35)*(COUNTIF($A$1:$A$20," > "&$A$1:$A$20)*10000+COUNTIF($B$1:$B$20," > "&$B$1:$B$20)+1/ROW($A$1:$A$20)),),ROW(A1)),1)),"")")

End Sub

I think I get an error because of double quotes ... How do I fix this?