Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
 
        Dim Excel1 As New Excel.Application
        Excel1.Workbooks.Open("C:\excel.xls")
        Excel1.Visible = True
        'Label2.Text = Excel1.Range("C1").Value
        'abc = Excel1.Range("A2").
        'deine Operationen (z.B. Excel1.Range("A2").Select()
        'TextBox1.Text = Excel1.Range("A2").Value
        ListBox1.Text = Excel1.Range("A1").Value
 
        Excel1.ActiveWorkbook.Close()
        Excel1.Workbooks.Close()
        Excel1.Visible = False
 
 
    End Sub