Public oXL As Excel.Application
    Public oWB As Excel.Workbook                    'Öffnen der Datei
    Public oSheetBasicdata As Excel.Worksheet       'Aufruf der Tabelle 
    ' "Basicdata"
    Public oRng As Excel.Range                      'eine Zelle wird instanziert
    Dim xElement As Object
 
        ' Start Excel and get Application object.
        oXL = CreateObject("Excel.Application")
        oXL.Visible = True
 
        'Aufruf der xls-Datei test.xls
        oWB = oXL.Workbooks.Open("C:\test.xls")
 
        'Aufruf der Tabelle "Basicdata"
        oSheetBasicdata = oWB.Sheets("Basicdata")
 
        'der Zelle oRng wird die Spalte A42 im Basicdata-Sheet zugewiesen
        oRng = oSheetBasicdata.Range("4:4")
 
 
        For Each xElement In oRng.Value
            If xElement <> "" Then
                MessageBox.Show(CType(xElement, String))
            Else
                Exit For
            End If
        Next
 
 
 
        ' Make sure Excel is visible and give the user control
        ' of Excel's lifetime.
        oXL.Visible = True
        oXL.UserControl = True
 
        ' Make sure that you release object references.
        oRng = Nothing
        oSheetBasicdata = Nothing
        oWB = Nothing
        oXL.Quit()
        oXL = Nothing
 
        Exit Sub
Err_Handler:
        MsgBox(Err.Description, vbCritical, "Error: " & Err.Number)
    End Sub