Tester la conformité d'une immatriculation

Option Explicit
'-------
''anciennes plaques
Function Verifier_oldplaque(Plaque As String) As Boolean
     Dim Separe, Nbre_lettres As Byte
     Dim Reg As Object
     Dim Verif As Object
     
     Separe = Split(Plaque)
     Set Reg = CreateObject("vbscript.regexp")
     With Reg
          If Len(Separe(1)) < 3 Then
               .Pattern = "^[0-9]{1,4}[\s][A-Z]{1,2}[\s][0-9]{1,2}$"
          Else
              .Pattern = "^[0-9]{1,3}[\s][A-Z]{1,3}[\s][0-9]{1,2}$"
          End If
          Set Verif = .Execute(Plaque)
     End With
     Verifier_oldplaque = (Verif.Count = 1)
End Function
'------------------------------------
'Nouvelles plaques
Function Verifier_newplaque(Plaque As String) As Boolean
     Dim Reg As Object
     Dim Verif As Object
     
     Set Reg = CreateObject("vbscript.regexp")
     With Reg
               .Pattern = "^[A-Z]{2}[-][0-9]{3}[-][A-Z]{2}$"
          Set Verif = .Execute(Plaque)
     End With
     Verifier_newplaque = (Verif.Count = 1)
End Function

3 chiffres