Set oXML = New MSXML2.DOMDocument40
            oXML.validateOnParse = False
            oXML.setProperty "SelectionLanguage", "XPath"
            If Not oXML.Load(App.Path + "\data\" + Feed_ID$ + "\feed.tmp") Then
                    lst_Fehler.AddItem "[" + CStr(Now) + "] - Fehler im XML" & _
                      "Dokument"
            End If
           XPath$ = "//rss/channel/title"
                Set Ergebnis = oXML.selectNodes(XPath$)
                    current_Title$ = Ergebnis.Item(0).Text
                Set Ergebnis = Nothing