I require the VBA equivalent of the formula below. I have figured some of it out like the double quotes and the relative cell locations.

PHP Code: 
[CODE]cell.FormulaR1C1 = "=mid(RC[-7],min(find({""18.0"",""17.0""},RC[-7]&{""18.0"",""17.0""})),4)"
[/CODE] 

Thanks in advance