Dim xdoc As New Xml.XmlDocument
        xdoc.LoadXml("<?xml version='1.0'" & _
          "encoding='utf-8'?><main><progversion>5.0000</progversion></main>")
 
        Dim xn As Xml.XmlNode = xdoc.SelectSingleNode("//progversion")
        Debug.WriteLine(xn.InnerText)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist