How can i match two values in different arrays?

i have two listboxes. listbox1 items:(macbook, pc, ipad etc.) and listbox2 price:(600.500,300). I want to match the item with the price and then display in the textbox/label. Thanks.

Here is a sample of what i am doing currently:
Dim lstitems0 As String() = {"Apple-Monitor", "Macbook", "IMac", "Ipad"}
Dim lstPrice0 As String() = {200.0, 600, 500, 300}
Dim lstitems1 As String() = {"Dell-laptop", "Dell-Monitor", "Dell-Keyboard"}
Dim lstPrice1 As String() = {600.0, 200, 300, 500}

Dim lstitems2 As String() = {"Hp-laptop", "hp-Monitor", "hp-Printer", "hp-Keyboard"}
Dim lstPrice2 As String() = {400.0, 200, 39, 100}

Dim lstitems3 As String() = {"Acer-laptop", "Acer-Monitor", "Acer-Keyboard"}
Dim lstPrice3 As String() = {250.0, 100, 120}

Dim lstitems4 As String() = {"lenovo-laptop", "lenovo-Monitor", "Lenovo-Keyboard"}
Dim lstPrice4 As String() = {550.0, 170, 120}



If cboxBrands.SelectedIndex = 0 Then
chklstboxItems.Items.Clear()
chklstboxItems.Items.AddRange(lstitems0)
ListBox1.Items.AddRange(lstPrice0)
Form2.pricetxtbox1.Text = i

ElseIf cboxBrands.SelectedIndex = 1 Then
chklstboxItems.Items.Clear()
chklstboxItems.Items.AddRange(lstitems1)
ListBox1.Items.AddRange(lstPrice1)
ElseIf cboxBrands.SelectedIndex = 2 Then
chklstboxItems.Items.Clear()
chklstboxItems.Items.AddRange(lstitems2)
ListBox1.Items.AddRange(lstPrice2)
ElseIf cboxBrands.SelectedIndex = 3 Then
chklstboxItems.Items.Clear()
chklstboxItems.Items.AddRange(lstitems3)
ListBox1.Items.AddRange(lstPrice3)
ElseIf cboxBrands.SelectedIndex = 4 Then
chklstboxItems.Items.Clear()
chklstboxItems.Items.AddRange(lstitems4)
ListBox1.Items.AddRange(lstPrice4)
End If


End Sub

any solutions please? I need this project to be done urgent. Please reply quick anyone..
Thanks