Use:

Range("I18") = Evaluate("=DATE(LEFT(H18,4),MID(H18,5,2),RIGHT(H18,2))")