Dim output AsNew StringBuilder
Dim root As XElement = <Root Att1="content1" Att2="content2" Att3="content3"/>
Dim att As XAttribute = root.Attribute("Att2")
output.Append(att.ToString())
output.Append(Environment.NewLine)
OutputTextBlock.Text = output.ToString()