Dim oXL As New Excel.Application
        Dim xlWB As Excel.Workbook
        Dim xlWS As Excel.Worksheet
 
        Dim iRange, iSpalte, iZeile, i
        Dim aRecord(), aColum()
 
        xlWB = oXL.Workbooks.Open(oFile)
        xlWS = xlWB.Worksheets(1)
 
        'iRange = 0
        'iSpalte = 1
        'iZeile = 2
 
       'Do While xlWS.Cells(1, iSpalte).Value <> ""
     ...
       'Loop
 
        xlWS = Nothing
        xlWB = Nothing
        oXL.Quit()
        oXL = Nothing