Receive an error in long formula with macro

Hello

How to fix this macro?

Sub Macro555()

    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=LEFT(0&RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,"(",""),")",""),"+","")," ",""),"=",""),"-",""),"_",""),".",""),"?",""),9),3)&"-"&RIGHT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,"(",""),")",""),"+","")," ",""),"=",""),"-",""),"_",""),".",""),"?",""),7)"
    Range("B3").Select
End Sub

Thank You