Ejemplo de como encontrar un valor de un listbox que se encuentre en otro listbox y terminar:
Private Sub Command1_Click()
Dim I, J As Integer
For I = 0 To List1.ListCount - 1
For J = 0 To List2.ListCount - 1
If List1.List(I) = List2.List(J) Then 'Si son Iguales
MsgBox "Valor Encontrado " + List1.List(I), vbInformation
Exit Sub
End If
Next J
Next I
End Sub
Espero y te pueda servir, en caso de que no, favor de ser mas especifico.