Variable VBA recherche de caratères spéciaux

Do
        Enregistrement = InputBox("Nom du programme", "Nom Programme", Left(Nomfichier, Len(Nomfichier) - 4))
        If Enregistrement = "" Then MsgBox "rentrer un nom de programme", vbExclamation
    Loop While Enregistrement = ""
    For Icar = 1 To Len(Enregistrement)
    Car = Mid(Enregistrement, Icar, 1)
    If Car = "/" Or Car = ":" Or Car = "*" Or Car = "?" Or Car = "<" Or Car = """" Or Car = ">" Or Car = "|" Then
        MsgBox ("attention le nom du fichier ne peut comporter de caratères tels que " & Chr(13) & "\ / : * "" ? < > |")
        Exit For
    End If
    Next Icar

Do
        Enregistrement = ...        
        If Enregistrement = "" Then MsgBox "rentrer un nom de programme", vbExclamation
    
    For Icar = 1 To Len(Enregistrement)
    Car = Mid(Enregistrement, Icar, 1)
    If Car = ...
         MsgBox ("attention le nom du fichier ne peut comporter de caratères tels que " ...        
        Enregistrement = ""
        Exit For
    End If
    Next Icar
    Loop While Enregistrement = ""

Function detecter_car_interdit(nom_fichier As String) As Boolean
 Dim interdit
 Dim cptr As Long
     interdit = Array("""", "/", "?", ":", "|", "*", "<", ">", "[", "]")
     For cptr = LBound(interdit) To UBound(interdit)
         If InStr(nom_fichier, interdit(cptr)) Then
         detecter_car_interdit = True
         Exit Function
         End If
     Next cptr
     detecter_car_interdit = False
 End Function

Dim Enregistrement As String    
    Do
        Enregistrement = InputBox("Nom du programme", "Nom Programme", Left(Nomfichier, Len(Nomfichier) - 4))
        If Enregistrement = "" Then MsgBox "rentrer un nom de programme", vbExclamation
    If detecter_car_interdit(Enregistrement) Then
        MsgBox ("attention le nom du fichier ne peut comporter de caratères tels que " & Chr(13) & "\ / : * "" ? < > |")
        Enregistrement = ""
    End If
    Loop While Enregistrement = ""

Function detecter_car_interdit(nom_fichier) As Boolean
 Dim interdit
 Dim cptr As Long
    'teste si 2 points dans le nom de fichier
    If Len(nom_fichier) - Len(Replace(nom_fichier, ".", "")) > 1 Then GoTo erreur
    'teste si nom de fichier comporte une extension
    If InStr(nom_fichier, ".") = 0 Then
        MsgBox " nom de fichier sans extension", vbCritical
        GoTo erreur
    End If
    ' travaille sur la partie gauche avant l'extension
    nom_fichier = Left(nom_fichier, InStr(nom_fichier, ".") - 1)
     interdit = Array("""", "/", "?", ":", "|", "*", "<", ">", "[", "]", ".")
     For cptr = LBound(interdit) To UBound(interdit)
         If InStr(nom_fichier, interdit(cptr)) Then GoTo erreur
     Next cptr
     
detecter_car_interdit = False
Exit Function
erreur:
detecter_car_interdit = True
 End Function

----------------------------------

Sub test()
Dim fichier As String
fichier = "az.ertY.jpeg"
MsgBox detecter_car_interdit(fichier)
End Sub

Sub test()
    fich = FreeFile
    On Error Resume Next
    Open "c:\" & "te|st.txt" For Output As #fich
    MsgBox ("Err " & Err.Number & " : " & Err.Description)
    Close #fich
    if err= 0 or err=75 then 
        ok=true  ' ecrire fichier
    endif
    On Error GoTo 0
End Sub