VB Code:
  1. Dim xdoc As New XmlDocument
  2. xdoc.Load("..\data.xml")
  3.  
  4. For Each nod As XmlNode In xdoc.SelectNodes("//servers/host")
  5.     TextBox1.Text &=nod.Attributes("ip").Value
  6. Next
  7.  
  8. TextBox2.Text=xdoc.SelectSingleNode("//themes/@value").Value
  9. TextBox3.Text=xdoc.SelectSingleNode("//locationupdate/@path").Value

But really you should add some error handling just in case no matching node is found.
VB Code:
  1. Dim xdoc As New XmlDocument
  2. xdoc.Load("..\data.xml")
  3.  
  4. For Each nod As XmlNode In xdoc.SelectNodes("//servers/host")
  5.     If Not nod Is Nothing Then TextBox1.Text &=nod.Attributes("ip").Value
  6. Next
  7.  
  8. Dim nod As XmlNode
  9. node=xdoc.SelectSingleNode("//themes/@value")
  10. If Not nod Is Nothing Then TextBox2.Text=nod.Value
  11. node=xdoc.SelectSingleNode("//locationupdate/@path")
  12. If Not nod Is Nothing Then TextBox3.Text=nod.Value