You have a missing left parentheses and an extraneous dash in there.

Try recording the entry of the formula - you'll get something like
this...

Range("e5").FormulaR1C1 = _
"=MID(R[7]C,
1+FIND(CHAR(1),SUBSTITUTE(R[7]C,""\"",CHAR(1),LEN(R[7]C)-
LEN(SUBSTITUTE(R[7]C,""\"","""")))),255)"

Cliff Edwards