Set fso = CreateObject("Scripting.FileSystemObject")
    Set objXML = CreateObject("Msxml2.DOMDocument")
    If (fso.FileExists("Quelle.xml")) Then
        If objXML.Load("Quelle.xml") Then
            Set oCoverage = objXML.documentElement.selectNodes( _
              "/document/dictionary/eintrag")
            If oCoverage.Length > 0 Then
                For i = 1 to oCoverage.Length
                    ' Mit "oCoverage.Item(i-1)" komme ich hier nun an jeden 
                    ' benötigten Tac dran aber wie gehts weiter?
                    ' ...
                Next
            End If
        End If
    End If