Dim Excel1 As New Excel.Application
    Dim MusicTitle(100000) As MusicBase
    Dim AnzahlMusic As Integer = 0
    Dim Position(27) As Integer
    Dim Procented(1000) As Double
    Dim InterpretenCounter As Integer = 0
    Dim ExcelMap As String = ""
    ''Zugang zur API ''user32'' 
    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd _
      As Integer, ByRef lpdwProcessId As IntPtr) As IntPtr
 
    ''Beenden eines speziellen Excel Prozesses, anhand seiner Id
 
 
 
 
    Public Enum Sheet
        Spetial = 1
        Number = 2
        A = 3
        B = 4
        C = 5
        D = 6
        E = 7
        F = 8
        G = 9
        H = 10
        I = 11
        J = 12
        K = 13
        L = 14
        M = 15
        N = 16
        O = 17
        P = 18
        Q = 19
        R = 20
        S = 21
        T = 22
        U = 23
        V = 24
        W = 25
        X = 26
        Y = 27
        Z = 28
 
 
    End Enum
    Private Sub bnCompare_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles bnCompare.Click
        Try
            Dim i As Integer = 0
            Excel1.Workbooks.Open(ExcelMap)
            Excel1.Visible = True
 
            ReadAllFiles()
 
            Excel1.DisplayAlerts = False
            Excel1.ActiveWorkbook.Save()
            Excel1.DisplayAlerts = True
            Excel1.ActiveWorkbook.Close()
            Excel1.Workbooks.Close()
            Excel1.Quit()
            killExcelInstanceById(Excel1)
            MsgBox("Testlauf erfolgreich")
        Catch ex As Exception
        End Try
    End Sub