Private Const kInvalidFileSystemChars = "\/:" ' String mit allen im Dateinamen 
' nicht zulässigen Zeichen
 
Public Function enthaeltInvalideFSZeichen(pStr As String) As Boolean
    '--------------------------------------------------------------------------
    ' ----------------
    ' Beschreibung: Prüft einen String auf Zeichen, die für einen Dateinamen im 
    ' Dateisystem   nicht zulässig sind: kInvalidFileSystemChars
    ' Parameter:    pstr:       String, der geprüft werden soll
    ' Algorithmus:  Prüft, ob unzulässige Zeichen (siehe 
    ' kInvalidFileSystemChars) im  String
    '               enthalten sind.
    ' Return:       True:   String enthält unzulässige Zeichen
    '        False:  String enthält keine unzulässige Zeichen
    '
 
    Dim v_i As Integer ' Laufvariable
 
 
    ' Enthält der String unzulässige Zeichen?
    For v_i = 1 To 3 ' Schleife über alle unzulässigen Zeichen
        If InStr(pStr, Mid$(kInvalidFileSystemChars, v_i, 1)) Then
            enthaeltInvalideFSZeichen = True    ' Ja
            Exit Function
        End If
    Next 'v_i
 
End Function

If enthaeltInvalideFSZeichen(Path) Then
  MsgBox "Pfad nicht erlaubt."
  Exit Sub
End If