Private Sub Button10000000_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button10000000.Click
 
 
        Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object
        oExcel = CreateObject("Excel.Application")
        oBook = oExcel.Workbooks.Open("C:\Documents and Settings\blas\My" & _
          "Documents\AG-TEAM\2008_Angebot-Auftrag.xlsm")
        oSheet = oBook.Worksheets(1)
        TextBox56.Text = oSheet.Cells(80, 1).Text ' Oder TextBox1.Text = 
        'TextBox56.Text = oSheet.Range("A20").Text
 
        'Speichert das Workbook
        'oBook.SaveAs("C:\Test.xls")
        oExcel.Quit()
 
 
    End Sub