Bon. Ho risolto da me.
codice:
Dim fileStream1 As New IO.FileStream(SettingsFile, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.None)
        Dim myFileReader As New System.IO.BinaryReader(fileStream1)
        Dim content As Byte() = myFileReader.ReadBytes(fileStream1.Length)
        Dim text As String = Encoding.Default.GetString(content)
        myFileReader.Close()
        fileStream1.Close()
codice:
Dim fileStream2 As New IO.FileStream(SettingsFile, IO.FileMode.Create, IO.FileAccess.Write, IO.FileShare.None)
        Dim myFileWriter As New System.IO.BinaryWriter(fileStream2)
        Dim b As Byte() = Encoding.Default.GetBytes(text)
        myFileWriter.Write(b)
        myFileWriter.Close()
        fileStream2.Close()
Mi sento pure uno stupido perché ci giravo intorno da tempo