Function IsValidFileName(sFileName As String) As Boolean
Dim vaIllegal As Variant
Dim i As Long
vaIllegal = Array("/", "\", ":", "*", "?", "< ", ">", "|", """")
IsValidFileName = True
For i = LBound(vaIllegal) To UBound(vaIllegal)
If InStr(1, sFileName, vaIllegal(i))...