credo che tu debba sostituire i vari

For Each i In c_file

con

For i=1 to 27

eventualmente puoi usare una variabile invece di 27 fisso, ma ricordati di fare ReDim invece di Dim