Tjekke om x cifret tal findes i streng

Denne kode finder (såvidt jeg kan gennemskue) ud af om der er 4 tal lige efter hinanden (hvilket betyder at det 6-cifrede tal også giver et match):

  Dim regEx, retVal
  Set regEx = New RegExp
  regEx.Pattern = "(\d{4})"
  regEx.Global = True         
  retVal = regEx.Test("er der min 4-cifrede (699593) tal i denne streng [990]")     
  If retVal Then
    RegExpTest = "Et eller flere 4-cifrede tal blev fundet."
  Else
    RegExpTest = "Der var ikke nogen 4-cifrede tal."
  End If

regEx.Pattern = "(^|\D)\d{4}(\D|$)"

Så tillader den ikk tal med flere end 4 cifre