Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
        Dim exlApp As Excel.Application
        Dim exlWB As Excel.Workbook
        Dim exlWS As Excel.Worksheet
        Dim test1 As String = "9999"
        Dim test2 As String = "121001"
        Dim test3 As String = CStr(Date.Now())
        Dim test4 As String = "0"
 
        exlApp = New Excel.Application
 
        With exlApp
 
            'temporäre Datei erstellen
            Dim sPath As String = My.Computer.FileSystem.GetTempFileName
 
            'Die unter Ressource abgelegte Datei in die temporäre Datei 
            ' schreiben
            My.Computer.FileSystem.WriteAllBytes(sPath, My.Resources.Woohoo, _
              False)
 
            'Excel anzeigen
            .Visible = True
 
            'Datei und Sheet öffnen
            exlWB = .Workbooks.Open(sPath)
            exlWS = exlWB.Sheets(1)
 
            'speichern
            exlWB.SaveAs(test2 & " " & test1)
 
            'DAten in die Excel-Datei mit vordefinierten Zellnamen schreiben
            exlWS.Range("KdNr").Value = test1
            exlWS.Range("Rechnung").Value = test2
            exlWS.Range("Datum").Value = test3
            exlWS.Range("Summe").Value = test4
 
            'Letzte Speicherzeit abrufen
            Dim test As DateTime = File.GetLastWriteTime(exlWB.Path & "\" & _
              exlWB.Name)
 
            Do
                Try
                    'speicherzeiten vergleichen
                    If test <> File.GetLastWriteTime(exlWB.Path & "\" & _
                      exlWB.Name) Then
 
                        'Wenn ungleich, dann die Daten wieder aus der 
                        ' Excel-Datei zurückschreiben
                        test1 = exlWS.Range("KdNr").Value
                        test2 = exlWS.Range("Rechnung").Value
                        test3 = exlWS.Range("Datum").Value
                        test4 = exlWS.Range("Summe").Value
 
                        'Abgeholte Daten anzeigen
                        MsgBox("Kundennummer: " & test1 & vbNewLine & _
                               "Rechnungsnummer: " & test2 & vbNewLine & _
                               "Datum: " & test3 & vbNewLine & _
                               "Summe: " & test4)
 
                        'Speicherzeit für neuen Vergleich setzen
                        test = File.GetLastWriteTime(exlWB.Path & "\" & _
                          exlWB.Name)
 
                    End If
                Catch ex As Exception
                    'Wenn die Abfrage wegen bereits geschlossener Excel-dAtei 
                    ' nicht möglich war
                    Exit Do
                End Try
            Loop
 
            'sicher schließen
            exlApp.Quit() 'Funktioniert nicht, im Task-Explorer immer noch 
            ' geöffnet
            GC.Collect() 'Macht auch nix
        End With
 
    End Sub