how to loop search to show multiple entries in listbox

[yujin]

And here's the code for the option you want.

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With Me
        .Desc.Value = ListBox2.List(ListBox2.ListIndex, 1)
        .Stor_Loc.Value = ListBox2.List(ListBox2.ListIndex, 2)
        .Bin_Loc.Value = ListBox2.List(ListBox2.ListIndex, 3)
        .QTY.Value = ListBox2.List(ListBox2.ListIndex, 4)
        .MFG.Value = ListBox2.List(ListBox2.ListIndex, 5)
        .PM.Value = ListBox2.List(ListBox2.ListIndex, 6)
    End With
End Sub