Como copiar Texto de archivo .TXT en una hoja de excel
buenos días, tengo el siguiente código para abrir archivos de texto .txt y copiar su contenido en una celda de Excel, pero los caracteres que me copia no son exactos, es decir, me modifica palabras como INGENIERÍA por INGENIERÃA, quisiera saber si se puede corregir o hay alguna forma mas eficiente de copiar caracteres.
Muchas Gracias
Sub copia_y_pega()
> Open "C:test.txt" For Input As #1
> contenido = Input(LOF(1), #1)
> linea = Split(contenido)
> For i = 0 To UBound(linea)
> Range("D" & 5 + i).Value = linea(i)
> Next i
> Close #1
> End Sub
