Assuming the data is in a1 and you're converting into b1:

With Range("b1")
.FormulaR1C1 = _
"=VALUE(CONCATENATE(MID(RC[-1],4,2),""/"",LEFT(RC[-1],
2),""/"",RIGHT(RC[-1],1)))"
.NumberFormat = "mm/dd/yy;@"
End With

Cliff Edwards