Ciao e grazie per la risposta.
Ho provato a adattare il tuo codice al mio, ma nn va, comunque la descrizione è un vettore ecco perche ho fatto un loop di "i" e uno di "n", perche la descrizione è un vettore e ci sono tanti righe.

For i=0 To Puntatore_campi_Bom-1
n=0
If UCasae$(Descrizione_Bom(i))<>"" Then
If Ucase$(Descrizione_Text1(n)) Like ("*" & Descrizione_Bom(i) & "*") Then
Codice = Codice_Text1(n) 'assegnare il codice i del Text1 della n-esima riga alla riga i- ' esima del Bom
Exit For
End If
Next
End if
mi lo controlli perfavore.
Grazie