Ciao ragà, scusate se vi "rompo" ancora,

Ho caricato nome di articoli, quanità e prezzo e visualizzati in 3 listbox diverse, ora devo ricercare per nome la quantità e il prezzo, e ho scritto cosi

codice:
  
Public Class Form1
    Dim Nome(100), Scelta, Ricerca As String, Prezzo(100), Quantità(100) As Decimal, I As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        I = 0
        Do
            Nome(I) = InputBox("Inserisci nome articolo")
            Quantità(I) = InputBox("inserisci quantità articolo")
            Prezzo(I) = InputBox("inserisci prezzo articolo")
            Scelta = InputBox("Inserire un altro articolo?(Si/No)", "Attenzione")
            ListBox1.Items.Add(Quantità(I))
            ListBox2.Items.Add(Nome(I))
            ListBox3.Items.Add(Prezzo(I))
        Loop Until Scelta = "No"
        

    End Sub

Private Sub BtnRicaercaQuant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRicaercaQuant.Click         
Do             
Ricerca = InputBox("inserisci nome articoli")             
If Ricerca = Nome(I) Then                
MsgBox(Quantità(I))             
End If             
Scelta = InputBox("inserire un altro articolo?(Si/No)")         
Loop Until Scelta = "No"      
End Sub
però quando provo mi dà solo la quantità dell'ultimo articolo inserito...cosa devo aggiungere o aggiustare?..