Dim x As Object = CreateObject("Excel.Application")
        Dim wb As Object = x.workbooks.open("d:\beispiel.xls")
        Dim sh As Object = wb.sheets("Tabelle1")
 
        Dim gefZelle As Object = sh.range("A:A").find("")
        If gefZelle Is Nothing Then
            MessageBox.Show("Konnte keine leere Zelle finden!")
        Else
            MessageBox.Show(gefZelle.row)
        End If
 
        wb.close(False)
 
        gefZelle = Nothing
        sh = Nothing
        wb = Nothing
        x.quit()
        x = Nothing

EALA FREYA FRESENA