For Each i In xmlQuery Autor.Text = i.Attribute.Value 'XML-Attributswert Book.Text = i.Value 'XML-Wert Next