Dim excel As New Microsoft.Office.Interop.Excel.Application
        Dim wb As Microsoft.Office.Interop.Excel.Workbook
        Dim ws As Microsoft.Office.Interop.Excel.Worksheet
        Try
            excel = New Microsoft.Office.Interop.Excel.Application
            excel.Visible = False
            wb = excel.Workbooks.Open("d:\\datum.xls", ReadOnly:=True)
            ws = wb.Worksheets("Tabelle1")
 
 
            Dim i As Integer
 
            For i = 2 To 20
                ListBox1.Items.Add(ws.Range("B" & i).Value)
            Next
 
            ws = Nothing
 
            wb.Close(False)
 
            wb = Nothing
 
            excel.Quit()
 
            excel = Nothing
 
        Catch ex As System.Runtime.InteropServices.COMException
            MessageBox.Show("Com-Fehler: " & ex.ToString())
        Catch ex As Exception
            MessageBox.Show("Fehler: " & ex.ToString())
        End Try

EALA FREYA FRESENA