Try
  Dim x = XDocument.Load(pfad)
  Dim h = x...<Auflösung>.First
  Dim auflösung = h.Value 'lesen
  h.Value = "1920*1080" 'schreiben
  x.Save(pfad) 'speichern
Catch ex As Exception
  MsgBox("Fehler beim Speichern!")
End Try