probleme de manipulation de listbox!

bonjour, voici mon probleme
je voudrais chercher une suite de nombres figurant sur une "listbox 1" dans une autre "listbox2" et determiner le nombre d'apparitions
ex:

listbox1: 11 5 844
listbox2: 51 732 5 11 5 844 42 13 1 5 80 8 43 56 7 8 6 11 5 844 8 4356

nb apparition =2


j'ai crée 2listbox avec 2 textbox relatif à chaque listbox pour les remplir avec des nombres :

alors je voudrais creer deux tableaux pour recuperer les valeurs(déclaré dans une feuille module)
public suitecherchée (1 to 10) as double........>>list1
public suitede nombre(1 to 100) as double.....>> list2

j'ai fait:

Private Sub ajouterlst1_Click()
'declaration
Dim m As Integer
'recuperation n
m = CInt(Text1)
'ajouter n ds la liste
List1.AddItem (CStr(m))
End Sub

Private Sub ajouterlst2_Click()
'declaration
Dim k As Integer
'recuperation n
k = CInt(Text2)
'ajouter n ds la liste
List2.AddItem (CStr(k))
End Sub


la suite je ne sais pas comment faire pour detecter combien de fois une suite de nombres(listbox1) apparait dans la (listbox2) en utilisant les tableaux.