Dim path As String = "C:\Palette_MOD.dat"
 
        Using s As New FileStream(path, FileMode.OpenOrCreate, _
          FileAccess.ReadWrite)
 
            s.Read(Data, 0, Data.Count) 'Zum lesen
 
            s.Write(Data, 0, Data.Count) 'Zum schreiben
 
            s.Close()
        End Using