RISOLTO!!!!!!!

Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
Dim codselect As String
codselect = art_List.Text
Dim gest As String
Dim cod As String


' richiamo i dati dal file excel


Dim excel As Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Dim ws As Microsoft.Office.Interop.Excel.Worksheet
excel = New Microsoft.Office.Interop.Excel.Application
cod = (codinput.Text)

wb = excel.Workbooks.Open("C:\....\articoli.xls")
excel.Visible = False
wb.Activate()

'************ qui stavo impazzendo *************

ws = wb.Worksheets("foglioarticoli")

For Each find In ws.Cells.Range("A1:A1000")
If CStr(find.Value) = codeselect Then
y = find.column + 1
x = find.row
articolo = (ws.Cells(x, y).value) 'dichiarata pubblica

End If
Next

excel.Workbooks.Close()
excel.Quit()

End Sub