ciao
la stringa cercata po essere uguale o piccola della strigha in cui vado a cercare.
io ho fatto una cosa del genere po andare bene?

For i=0 To UBound()
n=0
If UCase$(Descrizione_Bom(i))<>"" Then
Do Until "Descrizione_Text1(n)" Like "*Descrizione_Bom(i)*"
Codice_Bom(i) = Codice_Text1(n)
n = n + 1
Lopp
Grazie