Dim xlApp As New Excel.Application()
        Dim xlWorkbook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
 
        xlApp.Visible = False
        xlWorkbook = xlApp.Workbooks.Open("c:\Test.xls") '.....HIER MECKERT ER 
        ' RUM !
        xlSheet = xlWorkbook.Worksheets(1)
        '.....etc...