Sub FORMULA()
'
' FORMULA Macro
' Macro recorded 1/16/2006 by E127232 (James Kendall)
'
ActiveCell.FormulaR1C1 =
"=IF(AND(OR(CODE(B2)<47,CODE(B2)58),RIGHT(B2,1)=" "X"",LEN(B2)=6),CONCATENATE(0,B2),IF(AND(LEN(B2)=5 ,CODE(B2)47,CODE(B2)<58,RIGHT(B2,1)<""X"",ISERRO R(FIND(""-"",B2))),CONCATENATE(0,B2),B2))"
Range("A2").Select
End Sub

This above gives me the following in a cell. I need it to calculate instead.
=IF(AND(OR(CODE(B2)<47,CODE(B2)58),RIGHT(B2,1)="X ",LEN(B2)=6),CONCATENATE(0,B2),IF(AND(LEN(B2)=5,CO DE(B2)47,CODE(B2)<58,RIGHT(B2,1)<"X",ISERROR(FIN D("-",B2))),CONCATENATE(0,B2),B2))

Am I missing something?
--
Thank you for your time.
Windows XP
Office 2002