Originariamente inviato da Pirelli72
Nel frattempo hai cambiato il codice.....
La variabile I non viene mai incrementata, te ne sei accorto?

Inoltre la tua dichiarazione multipla
codice:
Dim Nome(100), Scelta, Ricerca As String, Prezzo(100), Quantità(100) As Decimal, I As Integer
è alquanto strana.
Io scriverei per correttezza:

codice:
Dim Nome(100) , Scelta, Ricerca As String
Dim prezzo(100) as decimal
Dim Quantità(100), I as Integer
ah ok ..pensavo fosse uguale cmq io ho messo I per fare con for e in effetti esce però solo se scrivo i nomi in ordine numerico, come è normale che sia usando for, quindi deov usare do no?

codice:
 For J = 0 To I - 1             
Ricerca = InputBox("ins. nome")            
 If Nome(J) = Ricerca Then                 
MsgBox(Quantità(J))             
End If          
Next      
End Sub