VBA Excel : tester une chaine de caracteres variable

Option Explicit

'cocher la référence Microsoft vbscript regular expression 5.5
'Dans Outils/Références
Function TestVis(texto As Range) As Boolean
Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = False
    reg.Pattern = "(^Vis )([a-zA-Z]{1,3})( )(M)([a-zA-Z]{1,2})(-)([a-zA-Z]{1,3})( classe )([a-zA-Z]{1,2})(.)([a-zA-Z]{1})"
    TestVis = reg.Test(texto)
    'Explication du Pattern :
    'entre chaque parenthèse, on place un élément de l'enchainement
    'La chaine de caractères à tester est un enchainement précis de :
    'Le mot Vis au début de la chaine, => (^Vis) ^ représente le début de la chaine et Vis respecte la casse (Majusc, minusc)
    'suivi de 1 à 3 lettres,  => ([a-zA-Z]{1,3})
    'suivi d'un espace,  => ( )    *--- Note : on aurait pu l'insérer avec le M qui suit... Mis pour l'exemple
    'suivi de la lettre M,  => (M)
    'suivie de 1 à 2 lettres,  => ([a-zA-Z]{1,2})
    'suivie d'un tiret,  => (-)
    'suivi de 1 à 3 lettres,  => ([a-zA-Z]{1,3})
    'suivi du mot classe entouré d'espace ET en minuscules,  => ( classe )
    'suivi d'1 à 2 lettres,  => ([a-zA-Z]{1,2})
    'suivi d'un point,  => (.)
    'suivi d'une lettre.  => ([a-zA-Z]{1})
    'Le tout mis bout à bout nous donne la règle (Pattern) à respecter, soit :
    '  "(^Vis )([a-zA-Z]{1,3})( )(M)([a-zA-Z]{1,2})(-)([a-zA-Z]{1,3})( classe )([a-zA-Z]{1,2})(.)([a-zA-Z]{1})"
End Function

Sub Test()
Dim i&
For i = 1 To 5
    'Lance le test sur les cellules de A1 à A5
    MsgBox TestVis(Range("A" & i))
Next i
End Sub