Rechercher un nombre de 4 chiffres dans 1 page

Option Explicit
 Sub essai()
 Dim blabla As String
 blabla = " avec 2 commandes de 1011 reférences 1471001123 (valeur unitaire:39 €) soit un chiffre d'affaires de 78858€..."
 MsgBox extraire_nombre(blabla, 4)
 End Sub
Function extraire_nombre(texto As String, seuil As Byte)
 'Michel_M  juillet 2015
    Dim reg As Object
    Dim texte As Object
    Dim nombre As Object
    Dim coll As Collection
    Dim cptr As Byte
     
     'instancie
        Set coll = New Collection
        Set reg = CreateObject("vbscript.regexp")
    ' on travaille sur tout le texte
        reg.Global = True
    'définition du modèle : on cherche des nombres  d'au moins  N caractères {seuil, infini }
        reg.Pattern = "(\d{" & seuil & ",})"
    
    'exécution de la recherche
    Set texte = reg.Execute(texto)
    'collecte les nombres  sans doublons
    For Each nombre In texte
        On Error Resume Next
        coll.Add nombre.Value, nombre.Value
        On Error GoTo 0
    Next nombre
   'extrait les nombres de longueur >= seuil
   For cptr = 1 To coll.Count
        extraire_nombre = extraire_nombre & coll(cptr) & " ; "
   Next
   Set reg = Nothing
   Set coll = Nothing
End Function