Conversión a/de UTF8

[paco7070]

Buenas, necesito su ayuda para convertir de algún encode que no conozco a otro.

Tengo indefinidos archivos en una carpeta en XML. Casi todos incluyen acentos, eñe, etc. Quiero hacer que se cambien. Por ejemplo á a ñ y así con todos.

Tengo este código que abre los archivos del directorio indicado y con un progress bar va mostrando, sin éxito, los cambios. Archivo es la ruta del archivo y p el array con todas las direcciones.

Código vb:

For Each archivo In p
            fileContents = My.Computer.FileSystem.ReadAllText(archivo, System.Text.Encoding.UTF8)
            ProgressBar1.Increment(1)
            XLabel.Text = ProgressBar1.Value & " de " & ProgressBar1.Maximum
            My.Computer.FileSystem.WriteAllText(archivo, fileContents, False, System.Text.Encoding.Unicode)
            ProgressBar1.Increment(1)
            XLabel.Text = ProgressBar1.Value & " de " & ProgressBar1.Maximum
        Next
 

Si alguien me ayudase estaría eternamente agradecido. Gracias.