Instead of asking a small part and then changing what your doing the next post, post what you are up to so we can make better solutions.
Dim myList As New Dictionary(Of String, String)
Dim total As Integer = ListBox1.Items.Count - 1
For Each i As Integer = 0 To total
myList.Add(ListBox1.Items(i).ToString, ListBox2.Items(i).ToString)
Next
For Each kv As KeyValuePair(Of String, String) In myList
Next