¿Como hariais este bucle? (for, while, if...)

[rsiles]

Private Sub Command1_Click()
Dim contador_lista1 As Integer
Dim contador_lista2 As Integer
Dim incremento_1 As Integer
Dim incremento_2 As Integer
Dim elemento_buscar
Dim elemento_comparar
Dim compara
Dim encontrado As Integer

List1.AddItem "ramon"
List1.AddItem "carol"
List1.AddItem "claudia"

List2.AddItem "pepe"
List2.AddItem "pedro"
List2.AddItem "ramon"
List2.AddItem "lucas"
List2.AddItem "carol"
List2.AddItem "ester"


contador_lista1 = List1.ListCount
contador_lista2 = List2.ListCount

For incremento_1 = 0 To contador_lista1 - 1
elemento_buscar = List1.List(incremento_1)
For incremento_2 = 0 To contador_lista2 - 1
elemento_comparar = List2.List(incremento_2)
compara = StrComp(elemento_buscar, elemento_comparar, 1)
If compara = 0 Then
encontrado = encontrado + 1
Exit For
End If
Next incremento_2
incremento_2 = 0
Next incremento_1
MsgBox encontrado
End Sub