Dim vIE As Object
        Dim vXMLFilename As String = ""
        Dim lSearchpattern As New List(Of String)
        Dim vXMLPath As New DirectoryInfo(TextBox2.Text & "\Export\")
        Dim xmlcheck As Boolean = False
        If CheckBox1.Checked Then
 
            lSearchpattern.Add("*.xml")
 
            For Each sFile As FileInfo In searchFiles(vXMLPath, lSearchpattern)
                If Not sFile.Name.StartsWith("_Report", _
                  StringComparison.OrdinalIgnoreCase) Then
                    vXMLFilename = sFile.FullName
                    xmlcheck = True
                End If
            Next
            If xmlcheck = True Then
                vIE = CreateObject("InternetExplorer.Application")
                vIE.Visible = True
 
                'XML jetzt öffnen
                vIE.Navigate2(vXMLFilename)