Function load(ByVal n As String) As Boolean
        Dim xmldoc As New System.XML.XmlDocument
 
        Try
            xmldoc.Load(pfadein + n)
            wurzel = xmldoc.DocumentElement
            elementzeiger = wurzel
            Return True
        Catch ex As Exception
            addlog(ex.Message)
            Return False
        End Try
    End Function