XL 2016 Verifier si un userform existe

Sub Macro1()
Dim BE As Variant 'déclare la variable BE (Boîte d'Entrée)
Dim C As Object 'déclare la variable C (Composant)
Dim TEXT As String 'déclare la variable TEXT
Dim TEST As Boolean 'déclare la variable TEST

'définit la boîte d'entrée BE
BE = Application.InputBox("Taper le nom de l'UserForm à vérifier.", "Vérifier l'existence d'une UserForm", Type:=2)
If BE = False Or BE = "" Then Exit Sub 'si bouton [Annuler] ou non renseignée, sort de la procédure
For Each C In ActiveWorkbook.VBProject.VBComponents 'boucle sur tous les composants de ce classeur
    'si le nom du composant est identique à BE (tous les deux convertis en Majuscules), définit la variable TEST, sort de la boucle
    If UCase(C.Name) = UCase(BE) Then TEST = True: Exit For
Next C 'prochain composant de la boucle
'définit la variable TEXT
TEXT = IIf(TEST = True, "Cette UserForm existe dans ce classeur !", "Cette UserForm n'existe pas dans ce classeur !")
MsgBox TEXT 'affiche TEXT
End Sub

Sub Test()
MsgBox VBComponent_Existe("UserForm1") 'modifier le nom
End Sub.
Function VBComponent_Existe(nom$) As Boolean
On Error Resume Next
VBComponent_Existe = Not IsError(UserForms.Add(nom$))
On Error GoTo 0
End Function