Why does this not work in my macro?

Range("E5").Formula =
"=MID(A8,1+FIND(CHAR(1),SUBSTITUTE(A8,"\",CHAR(1), LEN(A8)-LEN(SUBSTITUTE(A8,"\","")))),255)"

It works fine when the formula it in the cell.

Thank you,

Steven